home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / testrender.s < prev    next >
Text File  |  1997-11-28  |  55KB  |  3,888 lines
  1.  
  2. * the 'Hello World' program in 68000 Assembler
  3. * the C version can be found in the Intuition manual
  4.  
  5. * this source code (C) HiSoft 1992 All Rights Reserved
  6.  
  7. * for Devpac Amiga Version 2 the following symbols were changed
  8. * to avoid clashes with the new include files:
  9. * Screen->MyScreen, NewScreen->MyNewScreen
  10. * Window->MyWindow, NewWindow->MyNewWindow
  11.  
  12.     opt    c+,d+
  13.  
  14.     include    workbench:utilities/devpac/system            use pre-assembled header
  15.     include    exec/exec_lib.i
  16.     include    intuition/intuition.i
  17.     include    intuition/intuition_lib.i
  18.     include    graphics/graphics_lib.i
  19.     include    graphics/text.i
  20.  
  21. INTUITION_REV    equ    31        v1.1
  22. GRAPHICS_REV    equ    31        v1.1
  23.  
  24. * Open the intuition library
  25.  
  26.     moveq    #100,d4            default error return code
  27.  
  28.     moveq    #INTUITION_REV,d0    version
  29.     lea    int_name(pc),a1
  30.     CALLEXEC OpenLibrary
  31.     tst.l    d0
  32.     beq    exit_false        if failed then quit
  33.     move.l    d0,_IntuitionBase    else save the pointer
  34.  
  35.     moveq    #GRAPHICS_REV,d0
  36.     lea    graf_name(pc),a1
  37.     CALLEXEC OpenLibrary
  38.     tst.l    d0
  39. ;    beq    exit_closeint        if failed then close Int, exit
  40.     move.l    d0,_GfxBase
  41.     lea    MyNewScreen(pc),a0
  42.     CALLINT    OpenScreen        open a screen
  43.     tst.l    d0
  44. ;    beq    exit_closeall        if failed the close both, exit
  45.     move.l    d0,MyScreen
  46.  
  47.     move.l MyScreen,a0
  48.     lea sc_BitMap(a0),a0
  49.     lea bm_Planes(a0),a0
  50.     move.l #RAWSCRN,(a0)
  51.     move.l #RAWSCRN+10240,4(a0)
  52.     move.l #RAWSCRN+10240*2,8(a0)
  53.     move.l #RAWSCRN+10240*3,12(a0)
  54.     move.l #RAWSCRN+10240*4,16(a0)
  55.     move.l #RAWSCRN+10240*5,20(a0)
  56.     move.l #RAWSCRN+10240*6,24(a0)
  57.     move.l #RAWSCRN+10240*7,28(a0)
  58.  
  59. * now initialise a NewWindow structure. This is normally easier to
  60. * do with dc.w/dc.l statement etc, but for comparison with the C
  61. * version we do it like this
  62.     lea    MyNewWindow(pc),a0    good place to start
  63.     move.w    #20,nw_LeftEdge(a0)
  64.     move.w    #20,nw_TopEdge(a0)
  65.     move.w    #300,nw_Width(a0)
  66.     move.w    #100,nw_Height(a0)
  67.     move.b    #0,nw_DetailPen(a0)
  68.     move.b    #1,nw_BlockPen(a0)
  69.     move.l    #window_title,nw_Title(a0)
  70. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  71.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  72.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  73.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  74.     clr.l    nw_FirstGadget(a0)
  75.     clr.l    nw_CheckMark(a0)
  76.     move.l    MyScreen(pc),nw_Screen(a0)
  77.     clr.l    nw_BitMap(a0)
  78.     move.w    #100,nw_MinWidth(a0)
  79.     move.w    #25,nw_MinHeight(a0)
  80.     move.w    #640,nw_MaxWidth(a0)
  81.     move.w    #200,nw_MaxHeight(a0)
  82.  
  83. * thats it set up, now open the window (a0=NewWindow already)
  84. ;    CALLINT    OpenWindow
  85. ;    tst.l    d0
  86. ;    beq    exit_closescr            if failed
  87. ;    move.l    d0,MyWindow            save it
  88. ;
  89. ;    move.l    d0,a1                window
  90. ;    move.l    wd_RPort(a1),a1            rastport
  91. ;    moveq    #20,d0                X
  92. ;    moveq    #20,d1                Y
  93. ;    CALLGRAF Move                move the cursor
  94. ;
  95. ;    move.l    MyWindow(pc),a0
  96. ;    move.l    wd_RPort(a0),a1            rastport
  97. ;    lea    hello_message(pc),a0
  98. ;    moveq    #11,d0
  99. ;    CALLGRAF Text                print something
  100. ;
  101. ;    move.l    MyWindow(pc),a0
  102. ;    move.l    wd_UserPort(a0),a0
  103. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  104. ;    moveq    #0,d0
  105. ;    bset    d1,d0                do a shift
  106. ;    CALLEXEC Wait
  107.  
  108. ;    moveq    #0,d4                return code
  109.  
  110. * various exit routines that do tidying up, given a return code in d4
  111.  
  112. ;    move.l    MyWindow(pc),a0
  113. ;    CALLINT CloseWindow
  114.  
  115. ;exit_closescr
  116. ;    move.l    MyScreen(pc),a0
  117. ;    CALLINT CloseScreen
  118.  
  119. ;exit_closeall
  120. ;    move.l    _GfxBase(pc),a1
  121. ;    CALLEXEC CloseLibrary
  122.  
  123. ;exit_closeint
  124. ;    move.l    _IntuitionBase(pc),a1
  125. ;    CALLEXEC CloseLibrary
  126.  
  127. ;done:
  128. ;    bra done
  129.  
  130.  move.l #PALETTEBIT,a0
  131.  move.l #COPIEDPAL+4,a1
  132.  move.w #255,d0
  133.  
  134. copydown:
  135.  move.b 1(a0),(a1)
  136.  move.b 3(a0),4(a1)
  137.  move.b 5(a0),8(a1)
  138.  add.w #6,a0
  139.  add.w #12,a1
  140.  dbra d0,copydown
  141.  
  142.  move.w #256,COPIEDPAL
  143.  move.w #0,COPIEDPAL+2
  144. LOOKFORME:
  145.  move.l MyScreen,a0
  146.  lea sc_ViewPort(a0),a0
  147.  move.l #COPIEDPAL,a1
  148.  move.l _GfxBase,a6
  149.  jsr -$372(a6)
  150.  
  151.  move.l MyScreen,a4
  152.  move.w sc_MouseX(a4),d0
  153.  move.w sc_MouseY(a4),d1
  154.  move.w d0,OLDXM
  155.  move.w d1,OLDYM
  156.     
  157.  move.l 4.w,a6
  158.  move.l #doslibname,a1
  159.  moveq #0,d0
  160.  jsr -552(a6)
  161.  move.l d0,doslib
  162.  
  163.  move.l doslib,a6
  164.  move.l #OBJNAME,d1
  165.  move.l #1005,d2
  166.  jsr -30(a6)
  167.  move.l d0,ROTATEDPTS
  168.  
  169.  move.l doslib,a6
  170.  move.l d0,d1
  171.  move.l #POLYGONDATA,d2
  172.  move.l #30000,d3
  173.  jsr -42(a6)
  174.  
  175.  move.l doslib,a6
  176.  move.l ROTATEDPTS,d1
  177.  jsr -36(a6)
  178.  
  179.     
  180. loop:
  181.  
  182.  move.l #POLYGONDATA,a3
  183.  move.w (a3)+,SORTIT
  184.  move.l a3,START_OF_OBJECT
  185.     
  186.  move.w (a3)+,num_points
  187.  move.w (a3)+,d6
  188.  move.w d6,num_frames
  189.  move.l a3,POINTER_TO_POINTERS
  190.  lea (a3,d6.w*4),a3
  191.  move.l a3,LinesPtr
  192.  moveq #0,d5
  193.  moveq #0,d2
  194.  
  195.  move.l POINTER_TO_POINTERS,a4
  196.  move.w (a4,d5.w*4),d2
  197.  add.l START_OF_OBJECT,d2
  198.  move.l d2,PtsPtr
  199.  move.w 2(a4,d5.w*4),d5
  200.  add.l START_OF_OBJECT,d5
  201.  move.l d5,PolyAngPtr
  202.  move.l d2,a3
  203.  move.w num_points,d5
  204.  
  205.  move.l (a3)+,OBJONOFF
  206.  
  207.  move.l a3,PointAngPtr
  208.  add.w d5,d5
  209.  move.w d5,d2
  210.  add.w d5,d5
  211.  add.w d5,d2
  212.  add.w d2,a3
  213.  move.l a3,PtsPtr
  214.  
  215.  move.l MyScreen,a4
  216.  move.w sc_MouseX(a4),d0
  217.  move.w sc_MouseY(a4),d1
  218.  
  219.  sub.w OLDXM,d0
  220.  sub.w OLDYM,d1
  221.  add.w d0,OLDXM
  222.  add.w d1,OLDYM
  223.  
  224.  btst #6,$bfe001
  225.  beq.s .SHIFTABOUT
  226.  
  227.  muls #8190,d0
  228.  divs #320,d0
  229.  add.w d0,YANG
  230.  and.w #8190,YANG
  231.  muls #8190,d1
  232.  divs #320,d1
  233.  and.w #8190,d1
  234.  add.w d1,XANG
  235.  and.w #8190,XANG
  236.  
  237. ; add.w #40,AANG
  238. ; add.w #70,BANG
  239. ; and.w #8191,AANG
  240. ; and.w #8191,BANG
  241.  
  242. ; add.w #60,CANG
  243. ; add.w #90,DANG
  244. ; and.w #8191,CANG
  245. ; and.w #8191,DANG
  246.  
  247.  
  248.  bra .ROTABOUT
  249. .SHIFTABOUT
  250.  
  251.   muls #8190,d0
  252.  divs #320,d0
  253.  add.w d0,BANG
  254.  and.w #8190,BANG
  255.  muls #8190,d1
  256.  divs #320,d1
  257.  and.w #8190,d1
  258.  add.w d1,AANG
  259.  and.w #8190,AANG
  260.  
  261.  
  262. .ROTABOUT
  263.  
  264.  move.w AANG,d1
  265.  move.w BANG,d3
  266. ; cmp.w #2,d6
  267. ; bne.s .notsecrot
  268. ; move.w CANG,d1
  269. ; move.w DANG,d3
  270. ;.notsecrot
  271.  move.l #SINETABLE,a1
  272.  move.w (a1,d1.w),XSIN    ;xsin
  273.  move.w (a1,d3.w),YSIN    ;ysin
  274.  
  275.  add.w #2048,a1
  276.  move.w (a1,d1.w),XCOS    ;xcos
  277.  move.w (a1,d3.w),YCOS    ;ycos
  278.  
  279.  move.w XANG,d1
  280.  move.w YANG,d3
  281. ; cmp.w #2,d6
  282. ; bne.s .notsecrot
  283. ; move.w CANG,d1
  284. ; move.w DANG,d3
  285. ;.notsecrot
  286.  move.l #SINETABLE,a1
  287.  move.w (a1,d1.w),XSIN2    ;xsin
  288.  move.w (a1,d3.w),YSIN2    ;ysin
  289.  
  290.  add.w #2048,a1
  291.  move.w (a1,d1.w),XCOS2    ;xcos
  292.  move.w (a1,d3.w),YCOS2    ;ycos
  293.  
  294.  
  295. ************************************************
  296. ************************************************
  297. ************************************************
  298. ************************************************
  299. ************************************************
  300. ************************************************
  301. ************************************************
  302. ************************************************
  303. ************************************************
  304. ************************************************
  305. ************************************************
  306. ************************************************
  307. ************************************************
  308. ************************************************
  309.  
  310. *SHADOW BUFFER CALCULATION
  311.  
  312.  
  313. ; First, calculate the normal brightnesses
  314. ; for points. NB: -1,-1,-1 = this point not used
  315. ; in gouraud shading.
  316.  
  317.  move.l #NORMBRIGHTS,a2
  318.  move.l PointAngPtr,a0
  319.  move.w num_points,d7
  320.  
  321.  move.l #NORMVECTS,a5
  322.  
  323.  subq #1,d7
  324.  
  325. CALCNORMBRIGHTS:
  326.  
  327.  move.w (a0)+,d0
  328.  move.w (a0)+,d1
  329.  move.w (a0)+,d2
  330.  
  331.  move.w #0,d6
  332.  
  333.  cmp.w #-1,d0
  334.  bne.s .notnot
  335.  cmp.w #-1,d1
  336.  bne.s .notnot
  337.  cmp.w #-1,d2
  338.  bne.s .notnot
  339.  
  340.  move.w #-1,x1
  341.  move.w #-1,y1
  342.  move.w #-1,z1
  343.  bra .dontbother
  344.  
  345. .notnot:
  346.  neg.w d1
  347.  
  348.  move.w d0,d3
  349.  move.w d2,d5
  350.  
  351.  muls YCOS,d0
  352.  muls YSIN,d2
  353.  sub.l d2,d0
  354.  add.l d0,d0
  355.  swap d0
  356. ; asr.l #6,d0    ; new x*512
  357.  
  358.  muls YSIN,d3
  359.  muls YCOS,d5
  360.  add.l d5,d3
  361.  add.l d3,d3
  362.  swap d3
  363.  move.w d3,d2    ; new z
  364.  
  365.  move.w d1,d4
  366.  move.w d2,d5
  367.  muls XCOS,d1
  368.  muls XSIN,d2
  369.  sub.l d2,d1
  370.  add.l d1,d1
  371.  swap d1
  372.  
  373.  muls XSIN,d4
  374.  muls XCOS,d5
  375.  add.l d5,d4
  376.  add.l d4,d4
  377.  swap d4
  378.  move.w d4,d2    ; new z
  379.  
  380.  
  381.  move.w d0,d3
  382.  move.w d2,d5
  383.  
  384.  muls YCOS2,d0
  385.  muls YSIN2,d2
  386.  sub.l d2,d0
  387.  add.l d0,d0
  388.  swap d0
  389.  
  390.  muls YSIN2,d3
  391.  muls YCOS2,d5
  392.  add.l d5,d3    
  393.  add.l d3,d3
  394.  swap d3
  395.  move.w d3,d2    ; new z
  396.  
  397.  move.w d1,d4
  398.  move.w d2,d5
  399.  muls XCOS2,d1
  400.  muls XSIN2,d2
  401.  sub.l d2,d1
  402.  add.l d1,d1
  403.  swap d1
  404.  
  405.  muls XSIN2,d4
  406.  muls XCOS2,d5
  407.  add.l d5,d4
  408.  add.l d4,d4
  409.  swap d4
  410.  
  411.  move.w d0,x1
  412.  move.w d1,y1
  413.  move.w d4,z1
  414.  
  415.  
  416.  move.w d1,d6    ; new y 
  417.  
  418.  asr.w #4,d6
  419.  add.w #20,d6
  420.  
  421.  ble.s .okokok
  422.  
  423.  moveq #0,d6
  424.  
  425. .okokok:
  426.  add.w #$1c,d6
  427.  bge.s .okokokok
  428.  moveq #0,d6
  429. .okokokok:
  430.  
  431.  add.w #64,d6
  432.  
  433. ; 
  434. ; cmp.w #28,d6
  435. ; blt.s .okbig
  436. ; move.w #28,d6
  437. ;.okbig
  438.  
  439. .dontbother:
  440.  move.w x1,(a5)+
  441.  move.w y1,(a5)+
  442.  move.w z1,(a5)+
  443.  move.w d6,(a2)+
  444.  
  445.  dbra d7,CALCNORMBRIGHTS
  446.  
  447.  
  448. ; Next, calculate the point coords for
  449. ; the shadow buffer.
  450.  
  451.  move.l #SHADOWPTS,a2
  452.  move.l PtsPtr,a0
  453.  move.w num_points,d7
  454.  subq #1,d7
  455.  
  456. ROTPTLOPSHAD:
  457.  move.w (a0)+,d0
  458.  move.w d0,d3
  459.  move.w (a0)+,d1
  460.  move.w (a0)+,d2
  461.  move.w d2,d5
  462.  
  463.  muls YCOS,d0
  464.  muls YSIN,d2
  465.  sub.l d2,d0
  466.  add.l d0,d0
  467.  swap d0
  468. ; asr.l #6,d0    ; new x*512
  469.  
  470.  muls YSIN,d3
  471.  muls YCOS,d5
  472.  add.l d5,d3
  473.  add.l d3,d3
  474.  swap d3
  475.  move.w d3,d2    ; new z
  476.  
  477.  move.w d1,d4
  478.  move.w d2,d5
  479.  muls XCOS,d1
  480.  muls XSIN,d2
  481.  sub.l d2,d1
  482.  add.l d1,d1
  483.  swap d1
  484.  
  485.  muls XSIN,d4
  486.  muls XCOS,d5
  487.  add.l d5,d4
  488.  add.l d4,d4
  489.  swap d4
  490.  move.w d4,d2    ; new z
  491.   
  492.  move.w d0,d3
  493.  move.w d2,d5
  494.  
  495.  muls YCOS2,d0
  496.  muls YSIN2,d2
  497.  sub.l d2,d0
  498.  asr.l #6,d0    ; new x*512
  499.  
  500.  muls YSIN2,d3
  501.  muls YCOS2,d5
  502.  add.l d5,d3
  503.  add.l d3,d3
  504.  swap d3
  505.  move.w d3,d2    ; new z
  506.  
  507.  move.w d1,d4
  508.  move.w d2,d5
  509.  muls XCOS2,d1
  510.  muls XSIN2,d2
  511.  sub.l d2,d1
  512.  asr.l #6,d1    ; new y*512
  513.  
  514.  muls XSIN2,d4
  515.  muls XCOS2,d5
  516.  add.l d5,d4
  517.  add.l d4,d4
  518.  swap d4
  519.  move.w d4,d2    ; new z
  520.  
  521.  ext.l d2
  522.  
  523.  move.w XOFF,d5
  524.  ext.l d5
  525.  asl.l #8,d5
  526.  add.l d5,d5
  527.  add.l d5,d0
  528.  
  529.  move.l d0,(a2)+
  530.  move.l d1,(a2)+
  531.  move.w d2,(a2)+
  532.  
  533.  dbra d7,ROTPTLOPSHAD
  534.  
  535.  
  536.  
  537. ***************************************
  538. * Calculate viewer position for specularity..
  539.  
  540.  move.w #0,d0
  541.  move.w #0,d1
  542.  move.w #-1024,d2
  543.  
  544. ; move.w d0,d3
  545. ; move.w d2,d5
  546. ;
  547. ; muls YCOS,d0
  548. ; muls YSIN,d2
  549. ; sub.l d2,d0
  550. ; add.l d0,d0
  551. ; swap d0
  552. ; asr.l #6,d0    ; new x*512
  553. ; 
  554. ; muls YSIN,d3
  555. ; muls YCOS,d5
  556. ; add.l d5,d3
  557. ; add.l d3,d3
  558. ; swap d3
  559. ; move.w d3,d2    ; new z
  560. ;
  561. ; move.w d1,d4
  562. ; move.w d2,d5
  563. ; muls XCOS,d1
  564. ; muls XSIN,d2
  565. ; sub.l d2,d1
  566. ; add.l d1,d1
  567. ; swap d1
  568. ; 
  569. ; muls XSIN,d4
  570. ; muls XCOS,d5
  571. ; add.l d5,d4
  572. ; add.l d4,d4
  573. ; swap d4
  574. ; move.w d4,d2    ; new z
  575.  
  576.  move.w d0,d3
  577.  move.w d2,d5
  578.  
  579.  muls YCOS2,d0
  580.  muls YSIN2,d2
  581.  sub.l d2,d0
  582.  add.l d0,d0
  583.  swap d0
  584.  
  585.  muls YSIN2,d3
  586.  muls YCOS2,d5
  587.  add.l d5,d3    
  588.  add.l d3,d3
  589.  swap d3
  590.  move.w d3,d2    ; new z
  591.  
  592.  move.w d1,d4
  593.  move.w d2,d5
  594.  muls XCOS2,d1
  595.  muls XSIN2,d2
  596.  sub.l d2,d1
  597.  add.l d1,d1
  598.  swap d1
  599. ; asr.l #6,d1    ; new y*512
  600.  
  601.  muls XSIN2,d4
  602.  muls XCOS2,d5
  603.  add.l d5,d4
  604.  add.l d4,d4
  605.  swap d4
  606.  
  607.  move.w d0,x2b
  608.  move.w d1,y2b
  609.  move.w d4,z2b
  610.  
  611. ; Now the specular highlight efforts....
  612.  
  613.  move.l #SPECBRIGHTS,a2
  614.  move.l #NORMVECTS,a1
  615.  
  616.  move.l #SHADOWPTS,a5
  617.  
  618.  move.w num_points,d7
  619.  subq #1,d7
  620.  
  621. CALCSPECBRIGHTS:
  622.  
  623.  move.w (a1)+,x1
  624.  move.w (a1)+,y1
  625.  move.w (a1)+,z1
  626.  
  627.  move.w x2b,d0
  628.  move.l (a5)+,d1
  629.  asr.l #8,d1
  630.  asr.l #1,d1
  631.  sub.w d1,d0
  632.  move.w d0,x2
  633.  move.w y2b,d0
  634.  move.l (a5)+,d1
  635.  asr.l #8,d1
  636.  asr.l #1,d1
  637.  sub.w d1,d0
  638.  move.w d0,y2
  639.  move.w z2b,d0
  640.  sub.w (a5)+,d0
  641.  move.w d0,z2
  642.  
  643.  move.w #0,d6
  644.  
  645.  cmp.w #-1,x1
  646.  bne.s .notnot
  647.  cmp.w #-1,y1
  648.  bne.s .notnot
  649.  cmp.w #-1,z1
  650.  beq .dontbother
  651. .notnot: 
  652.  
  653.  move.w x2,d2
  654.  muls d2,d2
  655.  move.w y2,d1
  656.  muls d1,d1
  657.  add.l d1,d2
  658.  move.w z2,d1
  659.  muls d1,d1
  660.  add.l d1,d2
  661.  
  662.  jsr CALCSQROOT
  663.  
  664.  move.w d2,l2
  665.  
  666.  move.w y1,d0
  667.  muls z2,d0
  668.  move.w y2,d1
  669.  muls z1,d1
  670.  sub.l d1,d0    ; x4
  671.  
  672.  move.w z1,d1
  673.  muls x2,d1
  674.  move.w z2,d2
  675.  muls x1,d2
  676.  sub.l d2,d1    ; y4
  677.  
  678.  move.w x1,d2
  679.  muls y2,d2
  680.  move.w x2,d3
  681.  muls y1,d3
  682.  sub.l d3,d2    ; z4
  683.  
  684.  asr.l #8,d0
  685.  asr.l #8,d1
  686.  asr.l #8,d2
  687.  asr.l #2,d0
  688.  asr.l #2,d1
  689.  asr.l #2,d2
  690.  
  691.  move.w x1,d3
  692.  muls d1,d3
  693.  move.w y1,d4
  694.  muls d0,d4
  695.  sub.l d4,d3
  696.  asr.l #8,d3
  697.  asr.l #1,d3
  698.  add.w z2,d3
  699.  
  700.  muls #1024,d3
  701.  divs l2,d3
  702.  
  703.  move.w d3,z3
  704.  
  705.  move.w y1,d3
  706.  muls d2,d3
  707.  move.w z1,d4
  708.  muls d1,d4
  709.  sub.l d4,d3
  710.  asr.l #8,d3
  711.  asr.l #1,d3
  712.  add.w x2,d3
  713.  muls #1024,d3
  714.  divs l2,d3
  715.  
  716.  move.w d3,x3
  717.  
  718.  move.w z1,d3
  719.  muls d0,d3
  720.  move.w x1,d4
  721.  muls d2,d4
  722.  sub.l d4,d3
  723.  asr.l #8,d3
  724.  asr.l #1,d3
  725.  add.w y2,d3
  726.  muls #1024,d3
  727.  divs l2,d3
  728.  
  729.  move.w d3,y3
  730.  
  731.  move.w z3,d3
  732.  asr.w #3,d3
  733.  add.w #128,d3
  734.  bge.s .okpp
  735.  moveq #0,d3
  736. .okpp
  737.  cmp.w #255,d3
  738.  ble.s .okppp
  739.  move.w #255,d3
  740. .okppp
  741.  
  742.  move.b d3,d6
  743.  lsl.w #8,d6
  744.  
  745.  move.w x3,d3
  746.  asr.w #3,d3
  747.  
  748.  add.w #128,d3
  749.  bge.s .okp
  750.  moveq #0,d3
  751. .okp
  752.  cmp.w #255,d3
  753.  ble.s .okpppp
  754.  move.w #255,d3
  755. .okpppp
  756.  move.b d3,d6
  757.   
  758. ; add.w y2,d3
  759. ;
  760. ; move.w d3,d6
  761. ;
  762. ; asr.w #4,d6
  763. ; 
  764. ; add.w #30,d6
  765. ; 
  766. ; ble.s .okokok
  767. ; 
  768. ; moveq #0,d6
  769. ; 
  770. ;.okokok:
  771. ; add.w #$1c,d6
  772. ; bge.s .okokokok
  773. ; moveq #0,d6
  774. ;.okokokok:
  775.  
  776. ; 
  777. ; cmp.w #28,d6
  778. ; blt.s .okbig
  779. ; move.w #28,d6
  780. ;.okbig
  781.  
  782. .dontbother:
  783.  move.w d6,(a2)+
  784.  move.w y3,(a2)+
  785.  
  786.  dbra d7,CALCSPECBRIGHTS
  787.  
  788.  
  789.  
  790.  
  791. * NOW THE POINTS FOR ON-SCREENNESS
  792.  
  793.  move.l #ROTATEDPTS,a2
  794.  move.l PtsPtr,a0
  795.  move.w num_points,d7
  796.  subq #1,d7
  797.  
  798. ROTPTLOP:
  799.  
  800.  move.w (a0)+,d0
  801.  move.w d0,d3
  802.  move.w (a0)+,d1
  803.  move.w (a0)+,d2
  804.  move.w d2,d5
  805.  
  806.  
  807.  
  808.  muls YCOS,d0
  809.  muls YSIN,d2
  810.  sub.l d2,d0
  811.  asr.l #6,d0    ; new x*512
  812.  
  813.  muls YSIN,d3
  814.  muls YCOS,d5
  815.  add.l d5,d3
  816.  add.l d3,d3
  817.  swap d3
  818.  move.w d3,d2    ; new z
  819.  
  820.  move.w d1,d4
  821.  move.w d2,d5
  822.  muls XCOS,d1
  823.  muls XSIN,d2
  824.  sub.l d2,d1
  825.  asr.l #6,d1    ; new y*512
  826.  
  827.  muls XSIN,d4
  828.  muls XCOS,d5
  829.  add.l d5,d4
  830.  add.l d4,d4
  831.  swap d4
  832.  move.w d4,d2    ; new z
  833.  
  834.  ext.l d2
  835.  
  836.  move.w XOFF,d5
  837.  ext.l d5
  838.  asl.l #8,d5
  839.  add.l d5,d5
  840.  add.l d5,d0
  841.  
  842.  move.l d0,(a2)+
  843.  move.l d1,(a2)+
  844.  move.w d2,(a2)+
  845.  
  846.  dbra d7,ROTPTLOP
  847.  
  848. ; Now convert the rotated points to the screen:
  849.  
  850.  move.l #ROTATEDPTS,a0
  851.  move.l #ONSCREENPTS,a2
  852.  move.w num_points,d7
  853.  subq #1,d7
  854. CONVERTTOSCREEN:
  855.  move.l (a0)+,d0
  856.  move.l (a0)+,d1
  857.  move.w (a0)+,d2
  858.  add.w ZOFF,d2
  859.  ext.l d2
  860.  
  861.  move.l d0,d3
  862.  asr.l #1,d3
  863.  add.l d3,d0 
  864.  move.l d1,d3
  865.  asr.l #1,d3
  866.  add.l d3,d1 
  867.  
  868.  divs d2,d0
  869.  divs d2,d1
  870.  add.w #160*4,d0
  871.  add.w #128*4,d1
  872.  move.w d0,(a2)+
  873.  move.w d1,(a2)+
  874.  dbra d7,CONVERTTOSCREEN
  875.  
  876.  move.w #254,HIGHPOLY
  877.  
  878.  move.l LinesPtr,a1
  879.  move.l #PartBuffer,a0
  880.  move.l a0,a2
  881.  move.w #15,d0
  882. clrpartbuffSHAD:
  883.  move.l #$80000001,(a2)+
  884.  move.l #$80000001,(a2)+
  885.  move.l #$80000001,(a2)+
  886.  move.l #$80000001,(a2)+
  887.  dbra d0,clrpartbuffSHAD
  888.  
  889.  move.l #SHADOWPTS,a2
  890.  move.l OBJONOFF,d5
  891.  
  892.  move.w #0,d4
  893.  tst.w SORTIT
  894.  bne.s PutInPartsSHAD
  895.  
  896.  
  897. putinunsortedSHAD:
  898.  move.w (a1)+,d7
  899.  blt doneallpartsSHAD
  900.  lsr.l #1,d5
  901.  bcs.s .yeson
  902.  addq #2,a1
  903.  bra putinunsortedSHAD
  904. .yeson:
  905.  
  906.  move.w (a1)+,d6
  907.  move.l #0,(a0)+
  908.  move.w d7,(a0)+
  909.  move.w d4,(a0)+
  910.  addq #1,d4
  911.  bra putinunsortedSHAD
  912.  
  913. PutInPartsSHAD
  914.  move.w (a1)+,d7
  915.  blt doneallpartsSHAD
  916.  
  917.  lsr.l #1,d5
  918.  bcs.s .yeson
  919.  addq #2,a1
  920.  bra PutInPartsSHAD
  921. .yeson:
  922.  
  923.  move.w (a1)+,d6
  924.  move.l 4(a2,d6.w),d0
  925.  add.l #200000,d0
  926.  
  927.  move.l #PartBuffer-8,a0
  928.  
  929. stillfrontSHAD
  930.  addq #8,a0
  931.  cmp.l (a0),d0
  932.  blt stillfrontSHAD
  933.  move.l #endparttab-8,a5
  934. domoreshiftSHAD:
  935.  move.l -8(a5),(a5)
  936.  move.l -4(a5),4(a5)
  937.  subq #8,a5
  938.  cmp.l a0,a5
  939.  bgt.s domoreshiftSHAD
  940.  
  941.  move.l d0,(a0)
  942.  move.w d7,4(a0)
  943.  move.w d4,6(a0)
  944.  addq #1,d4
  945.  bra PutInPartsSHAD
  946.  
  947. doneallpartsSHAD:
  948.  
  949.  move.l #PartBuffer,a0
  950.  
  951. PartLoopSHAD
  952.  move.l (a0)+,d7
  953.  blt nomorepartsSHAD
  954.  
  955.  move.l #SAVEHIGHS,a2
  956.  move.w 2(a0),d0
  957.  move.w HIGHPOLY,(a2,d0.w*2)
  958.  
  959.  moveq #0,d0
  960.  move.w (a0),d0
  961.  addq #4,a0
  962.  add.l START_OF_OBJECT,d0
  963.  move.l d0,a1
  964.  
  965. polylooSHAD:
  966.  
  967.  tst.w (a1)
  968.  blt.s nomorepolysSHAD
  969.  movem.l a0/a1/d7,-(a7)
  970.  bsr doaSHADEpoly
  971.  movem.l (a7)+,a0/a1/d7
  972.  
  973.  move.w (a1),d0
  974.  lea 18(a1,d0.w*4),a1
  975.  
  976.  bra.s polylooSHAD
  977. nomorepolysSHAD:
  978.  sub.w #1,HIGHPOLY
  979.  bra PartLoopSHAD
  980. nomorepartsSHAD:
  981.  
  982. *******************************************
  983. * Now the on-screen bit...
  984. *******************************************
  985.  
  986.  move.l LinesPtr,a1
  987.  move.l #PartBuffer,a0
  988.  move.l a0,a2
  989.  move.w #15,d0
  990. clrpartbuff:
  991.  move.l #$80000001,(a2)+
  992.  move.l #$80000001,(a2)+
  993.  move.l #$80000001,(a2)+
  994.  move.l #$80000001,(a2)+
  995.  dbra d0,clrpartbuff
  996.  
  997.  move.l #ROTATEDPTS,a2
  998.  move.l OBJONOFF,d5
  999.  
  1000.  moveq #0,d4
  1001.  
  1002.  tst.w SORTIT
  1003.  bne.s PutInParts
  1004.  
  1005. putinunsorted:
  1006.  move.w (a1)+,d7
  1007.  blt doneallparts
  1008.  lsr.l #1,d5
  1009.  bcs.s .yeson
  1010.  addq #2,a1
  1011.  bra putinunsorted
  1012. .yeson:
  1013.  
  1014.  move.w (a1)+,d6
  1015.  move.l #0,(a0)+
  1016.  move.w d7,(a0)+
  1017.  move.w d4,(a0)+
  1018.  
  1019.  addq #1,d4
  1020.  bra putinunsorted
  1021.  
  1022. PutInParts
  1023.  move.w (a1)+,d7
  1024.  blt doneallparts
  1025.  
  1026.  lsr.l #1,d5
  1027.  bcs.s .yeson
  1028.  addq #2,a1
  1029.  bra PutInParts
  1030. .yeson:
  1031.  
  1032.  move.w (a1)+,d6
  1033.  move.l (a2,d6.w),d0
  1034.  asr.l #8,d0
  1035.  asr.l #2,d0
  1036.  muls d0,d0
  1037.  move.l 4(a2,d6.w),d2
  1038.  asr.l #8,d2
  1039.  asr.l #2,d2
  1040.  muls d2,d2
  1041.  add.l d2,d0 
  1042.  move.w 8(a2,d6.w),d2
  1043.  add.w #1024,d2
  1044.  muls d2,d2
  1045.  add.l d2,d0
  1046.  
  1047.  move.l #PartBuffer-8,a0
  1048.  
  1049. stillfront
  1050.  addq #8,a0
  1051.  cmp.l (a0),d0
  1052.  blt stillfront
  1053.  move.l #endparttab-8,a5
  1054. domoreshift:
  1055.  move.l -8(a5),(a5)
  1056.  move.l -4(a5),4(a5)
  1057.  subq #8,a5
  1058.  cmp.l a0,a5
  1059.  bgt.s domoreshift
  1060.  
  1061.  move.l d0,(a0)
  1062.  move.w d7,4(a0)
  1063.  move.w d4,6(a0)
  1064.  addq #1,d4
  1065.  bra PutInParts
  1066.  
  1067. doneallparts:
  1068.  
  1069.  move.l #PartBuffer,a0
  1070.  
  1071. PartLoop
  1072.  move.l (a0)+,d7
  1073.  blt nomoreparts
  1074.  
  1075.  move.l #SAVEHIGHS,a2
  1076.  move.w 2(a0),d0
  1077.  move.w (a2,d0.w*2),HIGHPOLY
  1078.  
  1079.  moveq #0,d0
  1080.  move.w (a0),d0
  1081.  addq #4,a0
  1082.  add.l START_OF_OBJECT,d0
  1083.  move.l d0,a1
  1084.  
  1085. polyloo:
  1086.  
  1087.  tst.w (a1)
  1088.  blt.s nomorepolys
  1089.  movem.l a0/a1/d7,-(a7)
  1090.  bsr doapoly
  1091.  movem.l (a7)+,a0/a1/d7
  1092.  
  1093.  move.w (a1),d0
  1094.  lea 18(a1,d0.w*4),a1
  1095.  
  1096.  bra.s polyloo
  1097. nomorepolys:
  1098.  sub.w #1,HIGHPOLY
  1099.  bra PartLoop
  1100. nomoreparts:
  1101.  
  1102. NOPOLYS:
  1103.  
  1104. ; btst #6,$bfe001
  1105. ; beq.s .SHOWSHADOW
  1106.  
  1107.  move.l FASTBUFFER,a0
  1108.  add.l #40*320+64,a0
  1109.  move.l #RAWSCRN+40*40+8,a1
  1110.  move.l #(24)-1,d0
  1111.  move.l #175,d1
  1112.  move.w #128,d2
  1113.  move.w #16,d3
  1114.  moveq #0,d4
  1115.  moveq #0,d5
  1116.  jsr CHUNKYTOPLANAR 
  1117.  
  1118.  bra .SHOWNSCRN
  1119.  
  1120. .SHOWSHADOW
  1121.  
  1122.  move.l #SHADOWBUFFER,a0
  1123.  add.l #40*256,a0
  1124.  move.l #RAWSCRN+40*40,a1
  1125.  move.l #(256/8)-1,d0
  1126.  move.l #175,d1
  1127.  move.w #0,d2
  1128.  move.w #8,d3
  1129.  moveq #0,d4
  1130.  moveq #0,d5
  1131.  jsr CHUNKYTOPLANAR 
  1132.  
  1133. .SHOWNSCRN:
  1134.  
  1135.  move.l FASTBUFFER,a0
  1136.  move.l #NEBBIE,a1
  1137.  add.l #40*320+64,a0
  1138.  
  1139.  move.w #175,d0
  1140. clrchunk:
  1141.  move.l (a1)+,(a0)+
  1142.  move.l (a1)+,(a0)+
  1143.  move.l (a1)+,(a0)+
  1144.  move.l (a1)+,(a0)+
  1145.  move.l (a1)+,(a0)+
  1146.  move.l (a1)+,(a0)+
  1147.  move.l (a1)+,(a0)+
  1148.  move.l (a1)+,(a0)+
  1149.  move.l (a1)+,(a0)+
  1150.  move.l (a1)+,(a0)+
  1151.  move.l (a1)+,(a0)+
  1152.  move.l (a1)+,(a0)+
  1153.  move.l (a1)+,(a0)+
  1154.  move.l (a1)+,(a0)+
  1155.  move.l (a1)+,(a0)+
  1156.  move.l (a1)+,(a0)+
  1157.  move.l (a1)+,(a0)+
  1158.  move.l (a1)+,(a0)+
  1159.  move.l (a1)+,(a0)+
  1160.  move.l (a1)+,(a0)+
  1161.  move.l (a1)+,(a0)+
  1162.  move.l (a1)+,(a0)+
  1163.  move.l (a1)+,(a0)+
  1164.  move.l (a1)+,(a0)+
  1165.  move.l (a1)+,(a0)+
  1166.  move.l (a1)+,(a0)+
  1167.  move.l (a1)+,(a0)+
  1168.  move.l (a1)+,(a0)+
  1169.  move.l (a1)+,(a0)+
  1170.  move.l (a1)+,(a0)+
  1171.  move.l (a1)+,(a0)+
  1172.  move.l (a1)+,(a0)+
  1173.  move.l (a1)+,(a0)+
  1174.  move.l (a1)+,(a0)+
  1175.  move.l (a1)+,(a0)+
  1176.  move.l (a1)+,(a0)+
  1177.  move.l (a1)+,(a0)+
  1178.  move.l (a1)+,(a0)+
  1179.  move.l (a1)+,(a0)+
  1180.  move.l (a1)+,(a0)+
  1181.  move.l (a1)+,(a0)+
  1182.  move.l (a1)+,(a0)+
  1183.  move.l (a1)+,(a0)+
  1184.  move.l (a1)+,(a0)+
  1185.  move.l (a1)+,(a0)+
  1186.  move.l (a1)+,(a0)+
  1187.  move.l (a1)+,(a0)+
  1188.  move.l (a1)+,(a0)+
  1189.  add.w #(320-192),a0
  1190.  dbra d0,clrchunk
  1191.  
  1192.  move.l #SHADOWBUFFER,a0
  1193.  move.l #-1,d1
  1194.  move.l #-1,d2
  1195.  move.w #15,d0
  1196. ;clrshad:
  1197. ; move.w #15,d5
  1198. ;innner
  1199. ; move.l d2,(a0)+
  1200. ; move.l d2,(a0)+
  1201. ; move.l d2,(a0)+
  1202. ; move.l d2,(a0)+
  1203. ; move.l d1,(a0)+
  1204. ; move.l d1,(a0)+
  1205. ; move.l d1,(a0)+
  1206. ; move.l d1,(a0)+
  1207. ; move.l d2,(a0)+
  1208. ; move.l d2,(a0)+
  1209. ; move.l d2,(a0)+
  1210. ; move.l d2,(a0)+
  1211. ; move.l d1,(a0)+
  1212. ; move.l d1,(a0)+
  1213. ; move.l d1,(a0)+
  1214. ; move.l d1,(a0)+
  1215. ; move.l d2,(a0)+
  1216. ; move.l d2,(a0)+
  1217. ; move.l d2,(a0)+
  1218. ; move.l d2,(a0)+
  1219. ; move.l d1,(a0)+
  1220. ; move.l d1,(a0)+
  1221. ; move.l d1,(a0)+
  1222. ; move.l d1,(a0)+
  1223. ; move.l d2,(a0)+
  1224. ; move.l d2,(a0)+
  1225. ; move.l d2,(a0)+
  1226. ; move.l d2,(a0)+
  1227. ; move.l d1,(a0)+
  1228. ; move.l d1,(a0)+
  1229. ; move.l d1,(a0)+
  1230. ; move.l d1,(a0)+
  1231. ; move.l d2,(a0)+
  1232. ; move.l d2,(a0)+
  1233. ; move.l d2,(a0)+
  1234. ; move.l d2,(a0)+
  1235. ; move.l d1,(a0)+
  1236. ; move.l d1,(a0)+
  1237. ; move.l d1,(a0)+
  1238. ; move.l d1,(a0)+
  1239. ; move.l d2,(a0)+
  1240. ; move.l d2,(a0)+
  1241. ; move.l d2,(a0)+
  1242. ; move.l d2,(a0)+
  1243. ; move.l d1,(a0)+
  1244. ; move.l d1,(a0)+
  1245. ; move.l d1,(a0)+
  1246. ; move.l d1,(a0)+
  1247. ; move.l d2,(a0)+
  1248. ; move.l d2,(a0)+
  1249. ; move.l d2,(a0)+
  1250. ; move.l d2,(a0)+
  1251. ; move.l d1,(a0)+
  1252. ; move.l d1,(a0)+
  1253. ; move.l d1,(a0)+
  1254. ; move.l d1,(a0)+
  1255. ; move.l d2,(a0)+
  1256. ; move.l d2,(a0)+
  1257. ; move.l d2,(a0)+
  1258. ; move.l d2,(a0)+
  1259. ; move.l d1,(a0)+
  1260. ; move.l d1,(a0)+
  1261. ; move.l d1,(a0)+
  1262. ; move.l d1,(a0)+
  1263. ; dbra d5,innner
  1264. ; exg d1,d2
  1265. ;
  1266. ; dbra d0,clrshad
  1267.  
  1268.  
  1269.  
  1270.     btst #7,$bfe001
  1271.     beq.s exit_closescr
  1272.  
  1273.  
  1274.     add.l #$8000,lmxoff
  1275.     cmp.l #40*65536,lmxoff
  1276.     blt.s .oksm
  1277.     sub.l #40*65536,lmxoff    
  1278. .oksm
  1279.  
  1280.     bra loop
  1281.     
  1282. lmxoff: dc.l 0
  1283.  
  1284. exit_closescr
  1285.     move.l    MyScreen(pc),a0
  1286.     CALLINT CloseScreen
  1287.  
  1288. exit_closeall
  1289.     move.l    _GfxBase(pc),a1
  1290.     CALLEXEC CloseLibrary
  1291.  
  1292. exit_closeint
  1293.     move.l    _IntuitionBase(pc),a1
  1294.     CALLEXEC CloseLibrary
  1295.  
  1296. exit_false
  1297.     move.l    #0,d0                return code
  1298.     rts
  1299.  
  1300. TESTTAB: ds.w 30
  1301.  
  1302. ************************************************
  1303. * SUBROUTINES HERE. ****************************
  1304. ************************************************
  1305.  
  1306. **********************************************************
  1307.  
  1308. * the definition of the screen - note that in assembler you
  1309. * MUST get the sizes of these fields correct, by consulting either
  1310. * the RKM or the header files
  1311.  
  1312.  
  1313. MyNewScreen    dc.w    0,0        left, top
  1314.         dc.w    320,256        width, height
  1315.         dc.w    8        depth
  1316.         dc.b    0,1        pens
  1317.         dc.w    0        viewmodes
  1318.         dc.w    CUSTOMSCREEN    type
  1319.         dc.l    MyFont        font
  1320.         dc.l    screen_title    title
  1321.         dc.l    0        gadgets
  1322.         dc.l    0        bitmap
  1323.  
  1324. * my font definition
  1325. MyFont    dc.l    font_name
  1326.     dc.w    TOPAZ_SIXTY
  1327.     dc.b    FS_NORMAL
  1328.     dc.b    FPF_ROMFONT
  1329.  
  1330. * the variables
  1331. _IntuitionBase    dc.l    0        Intuition lib pointer
  1332. _GfxBase    dc.l    0        graphics lib pointer
  1333. MyScreen        dc.l    0
  1334. MyWindow        dc.l    0
  1335. MyNewWindow    ds.b    nw_SIZE        a buffer
  1336.  
  1337.  
  1338. * some strings
  1339. int_name    INTNAME
  1340. graf_name    GRAFNAME
  1341. hello_message    dc.b    'Hello World'
  1342.  
  1343. * these are C strings, so have to be null terminated
  1344. screen_title    dc.b    'My Own Screen',0
  1345. font_name    dc.b    'topaz.font',0
  1346. window_title    dc.b    'A Simple Window',0
  1347.  
  1348.  even
  1349.  
  1350.  
  1351. doaSHADEpoly:
  1352.  
  1353.  move.w (a1)+,d7    ; sides to draw
  1354.  addq #2,a1        ; avoid holes
  1355.  
  1356.  move.l #SHADOWPTS,a3
  1357.  
  1358.  move.w (a1),d0
  1359.  move.w 4(a1),d1
  1360.  move.w 8(a1),d2
  1361.  muls #10,d0
  1362.  muls #10,d1
  1363.  muls #10,d2
  1364.  move.w 8(a3,d0.w),d3
  1365.  move.w 8(a3,d1.w),d4
  1366.  move.w 8(a3,d2.w),d5
  1367.  move.l (a3,d0.w),d0
  1368.  move.l (a3,d1.w),d1
  1369.  move.l (a3,d2.w),d2
  1370.  asr.l #8,d0
  1371.  asr.l #8,d1
  1372.  asr.l #8,d2
  1373.  asr.l #1,d0
  1374.  asr.l #1,d1
  1375.  asr.l #1,d2
  1376.  
  1377.  sub.w d1,d0
  1378.  sub.w d1,d2
  1379.  sub.w d4,d3
  1380.  sub.w d4,d5
  1381.  muls d3,d2
  1382.  muls d5,d0
  1383.  sub.l d0,d2
  1384.  bge SHADpolybehind
  1385.  
  1386.  move.w #20000,d4    ; top
  1387.  move.w #-20000,d5    ; bottom
  1388.  move.l #UVCOORDS,a4
  1389.  
  1390. putinlinesSHAD:
  1391.  move.w (a1),d0
  1392.  move.w 4(a1),d1
  1393.  
  1394.  moveq #0,d2
  1395.  move.b 2(a1),d2    ; one end U
  1396.  move.w d2,2(a4,d0.w*4)
  1397.  move.b 3(a1),d2    ; one end V
  1398.  move.w d2,(a4,d0.w*4)
  1399.  move.b 6(a1),d2    ; two end U
  1400.  move.w d2,2(a4,d1.w*4)
  1401.  move.b 7(a1),d2    ; two end V
  1402.  move.w d2,(a4,d1.w*4)
  1403.  
  1404.  move.w d0,d2
  1405.  muls #10,d2
  1406.  move.w 8(a3,d2.w),d2    ; Z
  1407.  
  1408.  cmp.w d2,d4
  1409.  ble.s .oktop
  1410.  move.w d2,d4
  1411. .oktop
  1412.  cmp.w d2,d5
  1413.  bge.s .okbot
  1414.  move.w d2,d5
  1415. .okbot
  1416.  
  1417.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1418.  bsr SIMPLESHADLINE
  1419.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1420.  addq #4,a1
  1421.  dbra d7,putinlinesSHAD
  1422.  addq #4,a1
  1423.   
  1424.  move.w (a1)+,TEXTUREADD
  1425.  
  1426.  asr.w #2,d4
  1427.  asr.w #2,d5
  1428.  add.w #128,d4
  1429.  add.w #128,d5
  1430.  move.w d4,TOPLINE
  1431.  move.w d5,BOTLINE
  1432.  
  1433. * Now draw the shadow polygon....
  1434.  
  1435.  move.l #SHADOWBUFFER,a2
  1436.  move.l #LEFTUVS,a0
  1437.  move.w TOPLINE,d0
  1438.  move.w BOTLINE,d1
  1439.  sub.w d0,d1
  1440.  asl.w #3,d0
  1441.  add.w d0,a0
  1442.  muls #(256/8),d0
  1443.  add.l d0,a2    ; pointer to screen line.
  1444.  
  1445.  subq #1,d1
  1446.  blt NOPOLYGONSHAD
  1447.  
  1448. DOAHORLINESHAD:
  1449.  swap d1
  1450.  
  1451.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1452.  move.w (a0)+,d7
  1453.  sub.w d7,d0
  1454.  blt NOPOLYGONSHAD
  1455.  
  1456.  move.l a2,-(a7)
  1457.  
  1458. ; asr.w #2,d0
  1459. ; asr.w #2,d7
  1460.  add.w d7,a2
  1461.  ext.l d0
  1462.  addq #1,d0
  1463.  
  1464.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1465.  move.w (a0)+,d4
  1466.  swap d7
  1467.  clr.w d7
  1468.  swap d4
  1469.  clr.w d4
  1470.  sub.l d4,d7
  1471.  divs.l d0,d7
  1472.  move.l d7,a5
  1473.  
  1474.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1475.  swap d7
  1476.  clr.w d7
  1477.  move.w (a0)+,d5
  1478.  swap d5
  1479.  clr.w d5
  1480.  sub.l d5,d7
  1481.  divs.l d0,d7
  1482.  move.l d7,a6
  1483.  
  1484.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1485.  swap d7
  1486.  clr.w d7
  1487.  move.w (a0)+,d6
  1488.  swap d6
  1489.  clr.w d6
  1490.  sub.l d6,d7
  1491.  divs.l d0,d7
  1492.  move.l d7,a3
  1493.  
  1494.  move.l a0,-(a7)
  1495.  move.l d1,-(a7)
  1496.  move.l #TEXTURES,a0
  1497.  move.w TEXTUREADD,d7
  1498.  bge.s .okaddtes3
  1499.  and.w #$7fff,d7
  1500.  add.l #65536*2,a0
  1501. .okaddtes3:
  1502.  ext.l d7
  1503.  add.l d7,d7
  1504.  add.l d7,a0
  1505.  move.w #0,d7
  1506.  
  1507.  subq #1,d0
  1508.  
  1509. ; d0=xdist
  1510. ; d4=U  a5=DU
  1511. ; d5=V  a6=DV
  1512. ; d6=Y  a3=DY
  1513.  moveq #0,d1
  1514.  
  1515.  swap d6
  1516.  
  1517. PLOTADOT:
  1518.  
  1519. .across
  1520.  
  1521.  swap d4
  1522.  swap d5
  1523.  move.w d4,d2
  1524.  lsl.w #8,d2
  1525.  swap d4
  1526.  move.b d5,d2
  1527.  add.l a5,d4
  1528.  swap d5
  1529.  add.l a6,d5
  1530.  
  1531.  
  1532. ; swap d6
  1533. ; move.b (a2)+,d1
  1534. ; tst.b 1(a0,d2.w*8)
  1535. ; beq.s .noplottt
  1536.  move.b d6,(a2)+
  1537.  
  1538.  dbra d0,.across
  1539.  bra.s .plaster
  1540.  
  1541. .noplottt:
  1542.  addq #1,a2
  1543.  dbra d0,.across
  1544.  
  1545. .plaster:
  1546.  
  1547.  move.l (a7)+,d1
  1548.  move.l (a7)+,a0
  1549.  move.l (a7)+,a2
  1550.  
  1551. .noline:
  1552.  add.w #256,a2
  1553.  
  1554.  swap d1
  1555.  dbra d1,DOAHORLINESHAD
  1556.  
  1557. NOPOLYGONSHAD:
  1558.  
  1559. SHADpolybehind:
  1560.  rts
  1561.  
  1562.  
  1563. ************************************************
  1564.  
  1565. LU: dc.w 0
  1566. LV: dc.w 0
  1567. RU: dc.w 0
  1568. RV: dc.w 0
  1569.     
  1570. SIMPLESHADLINE:
  1571.  move.l #SHADOWPTS,a1
  1572.  
  1573.  move.l #UVCOORDS,a2
  1574.  move.w (a2,d0.w*4),LU
  1575.  move.w 2(a2,d0.w*4),LV
  1576.  move.w (a2,d1.w*4),RU
  1577.  move.w 2(a2,d1.w*4),RV
  1578.  
  1579.  muls #10,d0
  1580.  muls #10,d1
  1581.  move.w 8(a1,d0.w),d2        ;fz
  1582.  move.w 8(a1,d1.w),d7        ;sz
  1583.  ext.l d2
  1584.  ext.l d7
  1585.  
  1586.  move.l #LEFTUVS,a3
  1587.  asr.l #2,d2
  1588.  asr.l #2,d7
  1589.  cmp.l d2,d7 
  1590.  beq .noline
  1591.  
  1592.  bgt.s .lineonright
  1593. .lineonleft:
  1594.  move.l #RIGHTUVS,a3
  1595.  exg d0,d1
  1596.  exg d2,d7
  1597.  
  1598.  move.l LU,d5
  1599.  move.l RU,LU
  1600.  move.l d5,RU
  1601.  
  1602. .lineonright:
  1603.  
  1604.  sub.w d2,d7
  1605.  add.w #128,d2
  1606.  lea (a3,d2.w*8),a3
  1607.  
  1608.  move.w d7,YDIFF
  1609.  
  1610.  move.l (a1,d0.w),d3        ;fx
  1611.  move.l (a1,d1.w),d7        ;sx
  1612.  
  1613.  asl.l #5,d3
  1614.  asl.l #5,d7
  1615.  
  1616.  sub.l d3,d7
  1617.  divs.l YDIFF-2,d7
  1618.  move.l d7,a0    ; dx
  1619.  
  1620.  move.l #ROTATEDPTS,a1
  1621.  
  1622.  move.w LU,d4
  1623.  move.w LV,d5
  1624.  move.w RU,d6
  1625.  move.w RV,d7
  1626.  
  1627.  sub.w d4,d6
  1628.  sub.w d5,d7
  1629.  swap d4
  1630.  swap d5
  1631.  clr.w d4
  1632.  clr.w d5
  1633.  swap d6
  1634.  swap d7
  1635.  clr.w d6
  1636.  clr.w d7
  1637.  
  1638.  divs.l YDIFF-2,d6
  1639.  divs.l YDIFF-2,d7
  1640.  
  1641.  move.l d6,a4
  1642.  move.l d7,a5
  1643.  
  1644. ; asl.w #4,d0
  1645. ; asl.w #4,d1
  1646.  
  1647.  move.l 4(a1,d0.w),d6
  1648.  move.l 4(a1,d1.w),d7
  1649.  asl.l #5,d6
  1650.  asl.l #5,d7
  1651.  sub.l d6,d7
  1652.  divs.l YDIFF-2,d7
  1653.  exg d7,a6
  1654.  exg d7,d6
  1655.  
  1656.  move.l YDIFF-2,d1
  1657.  subq #1,d1
  1658.  
  1659. ; d3=x a0=dx
  1660. ; d4=u a4=du
  1661. ; d5=v a5=dv
  1662. ; d7=y a6=dy
  1663. ; d1=dz
  1664.  
  1665.  move.w HIGHPOLY,d7
  1666.  
  1667.  add.l #128*65536,d3
  1668. ; add.l #128*65536,d7
  1669.  
  1670. .PUTINLINE:
  1671.  swap d3
  1672.  move.w d3,(a3)+
  1673.  swap d3
  1674.  add.l a0,d3
  1675.  swap d4
  1676.  move.w d4,(a3)+
  1677.  swap d4
  1678.  swap d5
  1679.  add.l a4,d4
  1680.  move.w d5,(a3)+
  1681.  swap d5
  1682.  add.l a5,d5
  1683. ; swap d7
  1684.  move.w d7,(a3)+
  1685. ; swap d7
  1686. ; add.l a6,d7
  1687.  dbra d1,.PUTINLINE
  1688.  
  1689. .noline:
  1690.  rts
  1691.  
  1692.  
  1693. **************************************************
  1694.  
  1695. doapoly:
  1696.  
  1697.  move.w (a1)+,d7    ; sides to draw
  1698.  addq #2,a1        ; avoid holes
  1699.  move.w 12(a1,d7.w*4),pregour
  1700.  
  1701.  move.l #ONSCREENPTS,a3
  1702.  
  1703.  move.w (a1),d0
  1704.  move.w 4(a1),d1
  1705.  move.w 8(a1),d2
  1706.  move.w 2(a3,d0.w*4),d3
  1707.  move.w 2(a3,d1.w*4),d4
  1708.  move.w 2(a3,d2.w*4),d5
  1709.  move.w (a3,d0.w*4),d0
  1710.  move.w (a3,d1.w*4),d1
  1711.  move.w (a3,d2.w*4),d2
  1712.  
  1713.  sub.w d1,d0
  1714.  sub.w d1,d2
  1715.  sub.w d4,d3
  1716.  sub.w d4,d5
  1717.  muls d3,d2
  1718.  muls d5,d0
  1719.  sub.l d0,d2
  1720.  ble polybehind
  1721.  
  1722.  move.w #20000,d4    ; top
  1723.  move.w #-20000,d5    ; bottom
  1724.  move.l #UVCOORDS,a4
  1725.  
  1726.  move.l a1,a0
  1727.  
  1728. putinlines:
  1729.  move.w (a1),d0
  1730.  move.w 4(a1),d1
  1731.  
  1732.  moveq #0,d2
  1733.  move.b 2(a1),d2    ; one end U
  1734.  move.w d2,2(a4,d0.w*4)
  1735.  move.b 3(a1),d2    ; one end V
  1736.  move.w d2,(a4,d0.w*4)
  1737.  move.b 6(a1),d2    ; two end U
  1738.  move.w d2,2(a4,d1.w*4)
  1739.  move.b 7(a1),d2    ; two end V
  1740.  move.w d2,(a4,d1.w*4)
  1741.  
  1742.  move.w 2(a3,d0.w*4),d2    ; Z
  1743.  
  1744.  cmp.w d2,d4
  1745.  ble.s .oktop
  1746.  move.w d2,d4
  1747. .oktop
  1748.  cmp.w d2,d5
  1749.  bge.s .okbot
  1750.  move.w d2,d5
  1751. .okbot
  1752.  
  1753.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  1754.  jsr SIMPLECALCLINE
  1755.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  1756.  addq #4,a1
  1757.  dbra d7,putinlines
  1758.  addq #4,a1 
  1759.  
  1760.  move.w (a1)+,TEXTUREADD
  1761.  
  1762.  asr.w #2,d4
  1763.  asr.w #2,d5
  1764. ; add.w #128,d4
  1765. ; add.w #128,d5
  1766.  move.w d4,TOPLINE
  1767.  move.w d5,BOTLINE
  1768.   
  1769.  move.l #SHADOWPTS,a1
  1770.  move.w (a0),d0
  1771.  move.w 4(a0),d1
  1772.  move.w 8(a0),d2
  1773.  
  1774. CHECKVALS:
  1775.  
  1776.  muls #10,d0
  1777.  muls #10,d1
  1778.  muls #10,d2
  1779.  
  1780.  lea (a1,d0.w),a0
  1781.  lea (a1,d2.w),a2
  1782.  lea (a1,d1.w),a1
  1783.  
  1784.  move.l (a0),d3
  1785.  sub.l (a1),d3
  1786.  asr.l #8,d3
  1787.  asr.l #1,d3
  1788.  move.l 4(a0),d4
  1789.  sub.l 4(a1),d4
  1790.  asr.l #8,d4
  1791.  asr.l #1,d4
  1792.  move.w 8(a0),d5
  1793.  sub.w 8(a1),d5
  1794.  
  1795.  move.w d3,d6
  1796.  muls d6,d6
  1797.  move.w d4,d7
  1798.  muls d7,d7
  1799.  add.l d7,d6
  1800.  move.w d5,d7
  1801.  muls d7,d7
  1802.  add.l d7,d6
  1803.  move.l d6,d2
  1804.  jsr CALCSQROOT
  1805.  move.w d2,LEN1
  1806.  
  1807.  move.l (a2),d0
  1808.  sub.l (a1),d0
  1809.  asr.l #8,d0
  1810.  asr.l #1,d0
  1811.  move.l 4(a2),d1
  1812.  sub.l 4(a1),d1
  1813.  asr.l #8,d1
  1814.  asr.l #1,d1
  1815.  move.w 8(a2),d2
  1816.  sub.w 8(a1),d2
  1817.  
  1818.  muls d2,d3
  1819.  muls d0,d5
  1820.  sub.l d3,d5    ; length
  1821.  asr.l #8,d5
  1822.  muls #$4c,d5
  1823.  ext.l d5
  1824.  asl.l #8,d5
  1825.  
  1826.  muls d0,d0
  1827.  muls d1,d1
  1828.  muls d2,d2
  1829.  add.l d0,d1
  1830.  add.l d1,d2
  1831.  jsr CALCSQROOT
  1832.  
  1833.  muls LEN1,d2
  1834.  bgt.s .ok
  1835.  moveq #1,d2
  1836. .ok
  1837.  
  1838.  divs.l d2,d5
  1839.  
  1840.  add.l #16,d5
  1841.  
  1842.  tst.l d5
  1843.  ble.s .okbr
  1844.  moveq #0,d5
  1845. .okbr:
  1846.  add.w #$5c,d5
  1847.  bge.s .okbr2
  1848.  moveq #0,d5
  1849. .okbr2:
  1850.  
  1851.  move.w d5,d0
  1852.  
  1853.  asl.w #8,d5
  1854.  move.w d5,BRIGHTNESS+2
  1855.  
  1856.  sub.w #$5c,d0
  1857.  asr.w #1,d0
  1858.  add.w #$5c,d0
  1859.  asl.w #8,d0
  1860.  move.w d0,BRIGHTNESS
  1861.  
  1862.  
  1863. ***********************************************
  1864. * Draw the polygon (shadowed).
  1865.  
  1866.  move.l FASTBUFFER,a2
  1867.  move.l #LEFTUVS,a0
  1868.  move.w TOPLINE,d0
  1869.  move.w BOTLINE,d1
  1870.  sub.w d0,d1
  1871.  asl.w #4,d0
  1872.  add.w d0,a0
  1873.  muls #(320/16),d0
  1874.  add.l d0,a2    ; pointer to screen line.
  1875.  
  1876.  subq #1,d1
  1877.  blt NOPOLYGON
  1878.  
  1879.  tst.b Gouraud
  1880.  bne GOURPOLY
  1881.  
  1882. DOAHORLINE:
  1883.  swap d1
  1884.  
  1885.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1886.  move.w (a0)+,d7
  1887.  asr.w #2,d0
  1888.  asr.w #2,d7
  1889.  sub.w d7,d0
  1890.  bge.s .okflibble
  1891.  
  1892.  add.w #14,a0
  1893.  add.w #320,a2
  1894.  swap d1
  1895.  dbra d1,DOAHORLINE
  1896.  bra NOPOLYGON
  1897.  
  1898. .okflibble:
  1899.  
  1900.  move.l a2,-(a7)
  1901.  
  1902.  add.w d7,a2
  1903.  ext.l d0
  1904.  addq #1,d0
  1905.  
  1906.  move.l RIGHTUVS-LEFTUVS(a0),d7
  1907.  move.l (a0)+,d2 
  1908.  sub.l d2,d7
  1909.  divs.l d0,d7
  1910.  move.l d7,a1
  1911.  
  1912.  
  1913.  
  1914.  
  1915.  
  1916.  
  1917.  
  1918.  
  1919.  
  1920.  
  1921.  
  1922.  
  1923.  
  1924.  
  1925.  
  1926.  
  1927.  
  1928.  
  1929.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  1930.  move.l (a0)+,d3 
  1931.  
  1932.  
  1933.  
  1934.  
  1935.  
  1936.  
  1937.  
  1938.  
  1939.  
  1940.  
  1941.  
  1942.  
  1943.  
  1944.  
  1945.  
  1946.  
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  sub.l d3,d7
  1952.  divs.l d0,d7
  1953.  move.l d7,a4
  1954.  
  1955.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1956.  move.w (a0)+,d4
  1957.  swap d7
  1958.  clr.w d7
  1959.  swap d4
  1960.  clr.w d4
  1961.  sub.l d4,d7
  1962.  divs.l d0,d7
  1963.  move.l d7,a5
  1964.  
  1965.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1966.  swap d7
  1967.  clr.w d7
  1968.  move.w (a0)+,d5
  1969.  swap d5
  1970.  clr.w d5
  1971.  sub.l d5,d7
  1972.  divs.l d0,d7
  1973.  move.l d7,a6
  1974.  
  1975.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1976.  swap d7
  1977.  clr.w d7
  1978.  move.w (a0)+,d6
  1979.  swap d6
  1980.  clr.w d6
  1981.  sub.l d6,d7
  1982.  divs.l d0,d7
  1983.  move.l d7,a3
  1984.  
  1985.  move.l a0,-(a7)
  1986.  move.l d1,-(a7)
  1987.  move.l #TEXTURES,a0
  1988.  move.w TEXTUREADD,d7
  1989.  bge.s .okaddtes3
  1990.  and.w #$7fff,d7
  1991.  add.l #65536*2,a0
  1992. .okaddtes3:
  1993.  ext.l d7
  1994.  add.l d7,d7
  1995.  add.l d7,a0
  1996.  move.w #0,d7
  1997.  
  1998.  move.l BRIGHTNESS,a6
  1999.  
  2000.  move.l a7,SAVESTACK
  2001.  move.l #SHADOWBUFFER,a7
  2002.  
  2003.  subq #1,d0
  2004.  
  2005. ; d0=xdist
  2006. ; d2=U    a1=DU
  2007. ; d3=V  a4=DV
  2008. ; d4=X  a5=DX
  2009. ; d5=Y  a6=DY
  2010. ; d6=Z  a3=DZ
  2011.  move.w HIGHPOLY,d5
  2012.  
  2013.  moveq #0,d1
  2014.  swap d6
  2015.  move.w d6,d1
  2016.  lsl.w #8,d1
  2017.  swap d4
  2018.  move.b d4,d1
  2019.  swap d4
  2020.  swap d6
  2021.  
  2022.  moveq #0,d7
  2023.  move.b (a7,d1.l),d7
  2024.  cmp.w d7,d5
  2025.  ble INTHELIGHT
  2026.  bra.s INTHEDARK
  2027.  
  2028. PENUMBRA:
  2029.  moveq #0,d1
  2030.  swap d6
  2031.  move.w d6,d1
  2032.  lsl.w #8,d1
  2033.  swap d4
  2034.  move.b d4,d1
  2035.  swap d4
  2036.  swap d6
  2037.  add.l a5,d4
  2038.  add.l a3,d6
  2039.  
  2040.  moveq #0,d7
  2041.  move.b (a7,d1.l),d7
  2042.  cmp.w d7,d5
  2043.  ble INTOLIGHT
  2044.  bra.s INTODARK
  2045.  
  2046.  
  2047. INTHEDARK:
  2048.  moveq #0,d1
  2049.  swap d6
  2050.  move.w d6,d1
  2051.  lsl.w #8,d1
  2052.  swap d4
  2053.  move.b d4,d1
  2054.  swap d4
  2055.  swap d6
  2056.  add.l a5,d4
  2057.  add.l a3,d6
  2058.  
  2059.  moveq #0,d7
  2060.  move.b (a7,d1.l),d7
  2061.  cmp.w d7,d5
  2062.  ble.s INTOPENUM
  2063. INTODARK:
  2064.  move.w #$5c00,d7
  2065.  swap d2
  2066.  move.w d2,d1
  2067.  asl.w #8,d1
  2068.  swap d3
  2069.  move.b d3,d1
  2070.  swap d2
  2071.  swap d3
  2072.  add.l a1,d2
  2073.  add.l a4,d3
  2074.  
  2075. ; move.b (a0,d1.w*4),d7
  2076. ; beq.s .noplottt
  2077.  
  2078.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2079.  dbra d0,INTHEDARK
  2080.  bra.s PASTAC 
  2081.  
  2082. .noplottt
  2083.  addq #1,a2
  2084.  dbra d0,INTHEDARK
  2085.  bra.s PASTAC
  2086.  
  2087. INTOPENUM:
  2088.  move.l a6,d7
  2089.  swap d7
  2090.  swap d2
  2091.  move.w d2,d1
  2092.  asl.w #8,d1
  2093.  swap d3
  2094.  move.b d3,d1
  2095.  swap d2
  2096.  swap d3
  2097.  add.l a1,d2
  2098.  add.l a4,d3
  2099.  
  2100. ; move.b (a0,d1.w*4),d7
  2101. ; beq.s .noplottt
  2102.  
  2103.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2104.  dbra d0,PENUMBRA
  2105.  bra.s PASTAC 
  2106.  
  2107. .noplottt
  2108.  addq #1,a2
  2109.  dbra d0,PENUMBRA
  2110.  bra.s PASTAC
  2111.  
  2112. INTHELIGHT:
  2113.  
  2114.  moveq #0,d1
  2115.  swap d6
  2116.  move.w d6,d1
  2117.  lsl.w #8,d1
  2118.  swap d4
  2119.  move.b d4,d1
  2120.  swap d4
  2121.  swap d6
  2122.  add.l a5,d4
  2123.  add.l a3,d6
  2124.  
  2125.  moveq #0,d7
  2126.  move.b (a7,d1.l),d7
  2127.  cmp.w d7,d5
  2128.  bgt.s INTOPENUM
  2129. INTOLIGHT:
  2130.  move.w a6,d7
  2131.  swap d2
  2132.  move.w d2,d1
  2133.  asl.w #8,d1
  2134.  swap d3
  2135.  move.b d3,d1
  2136.  swap d2
  2137.  swap d3
  2138.  add.l a1,d2
  2139.  add.l a4,d3
  2140.  
  2141. ; move.b (a0,d1.w*4),d7
  2142. ; beq.s .noplottt
  2143.  
  2144.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2145.  dbra d0,INTHELIGHT
  2146.  bra.s PASTAC 
  2147.  
  2148. .noplottt:
  2149.  addq #1,a2
  2150.  dbra d0,INTHELIGHT
  2151.  
  2152. PASTAC
  2153.  
  2154.  move.l SAVESTACK,a7
  2155.  
  2156.  move.l (a7)+,d1
  2157.  move.l (a7)+,a0
  2158.  move.l (a7)+,a2
  2159.  
  2160. .noline:
  2161.  add.w #320,a2
  2162.  
  2163.  swap d1
  2164.  dbra d1,DOAHORLINE
  2165.  
  2166.  
  2167.  bra NOPOLYGON
  2168.  
  2169. TEXTUREPAL: incbin "ab3:includes/shadow.pal"
  2170.  
  2171. SAVESTACK: dc.l 0
  2172. HIGHPOLY: dc.w 0
  2173. LEN1: dc.w 0
  2174. BRIGHTNESS: dc.l 0
  2175. TRANSTEXT: dc.w 0
  2176. AANG: dc.w 0
  2177. BANG: dc.w 0
  2178. CANG: dc.w 0
  2179. DANG: dc.w 0
  2180.  
  2181. NOPOLYGON:
  2182. polybehind:
  2183.  rts
  2184.  
  2185.  
  2186. GOURPOLY: 
  2187.  
  2188. DOAHORLINEGOUR:
  2189.  swap d1
  2190.  
  2191.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2192.  move.w (a0)+,d7
  2193.  asr.w #2,d0
  2194.  asr.w #2,d7
  2195.  sub.w d7,d0
  2196.  bge.s .okflibble
  2197.  
  2198.  add.w #14,a0
  2199.  add.w #320,a2
  2200.  swap d1
  2201.  dbra d1,DOAHORLINEGOUR
  2202.  bra NOPOLYGON
  2203.  
  2204. .okflibble:
  2205.  
  2206.  move.l a2,-(a7)
  2207.  
  2208.  add.w d7,a2
  2209.  ext.l d0
  2210.  addq #1,d0
  2211.  
  2212.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2213.  move.b (a0),d2
  2214.  ext.w d3
  2215.  ext.w d2
  2216.  
  2217.  tst.w d2
  2218.  blt .firsttowards
  2219.  
  2220.  bgt .firstaway
  2221.  tst.w d3
  2222.  blt .bothtowards
  2223.  bra .bothaway
  2224.  
  2225. .firsttowards:
  2226.  tst.w d3
  2227.  ble .bothtowards
  2228.  
  2229. ; First is towards and second away...
  2230.  
  2231.  move.w d0,d7    ; total length
  2232.  move.w d0,d6
  2233.  neg.w d2
  2234.  add.w d2,d3
  2235.  muls d2,d6
  2236.  divs d3,d6    ; length of first bit
  2237.  sub.w d6,d7    ; length of second bit
  2238.  move.w d6,FIRSTLEN
  2239.  move.w d7,LASTLEN
  2240.  
  2241.  tst.w FIRSTLEN
  2242.  beq .bothaway
  2243.  tst.w LASTLEN
  2244.  beq .bothtowards
  2245.  
  2246.  moveq #0,d2
  2247.  moveq #0,d3
  2248.  moveq #0,d4
  2249.  moveq #0,d5
  2250.  move.b 6(a0),d2
  2251.  move.b 7(a0),d3
  2252.  
  2253.  move.w d2,FIRSTU
  2254.  move.w d3,FIRSTV
  2255.  
  2256.  move.w d2,d4
  2257.  move.w d3,d5
  2258.  sub.w #128,d2
  2259.  sub.w #128,d3
  2260.  muls d2,d2
  2261.  muls d3,d3
  2262.  add.l d3,d2
  2263.  jsr CALCSQROOT
  2264.  
  2265.  tst.w d2
  2266.  beq.s .nochng
  2267.  
  2268.  sub.w #128,d4
  2269.  sub.w #128,d5
  2270.  muls #127,d4
  2271.  muls #127,d5
  2272.  divs d2,d4
  2273.  divs d2,d5
  2274.  add.w #128,d4
  2275.  add.w #128,d5
  2276.  
  2277. .nochng:
  2278.  
  2279.  move.w d4,MIDU
  2280.  move.w d5,MIDV
  2281.  
  2282.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2283.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2284.  move.w d4,SECU
  2285.  move.w d5,SECV
  2286.  
  2287.  move.w d4,d2
  2288.  move.w d5,d3
  2289.  
  2290.  sub.w #128,d2
  2291.  sub.w #128,d3
  2292.  muls d2,d2
  2293.  muls d3,d3
  2294.  add.l d3,d2
  2295.  jsr CALCSQROOT
  2296.  
  2297.  tst.w d2
  2298.  beq.s .nochng2
  2299.  
  2300.  sub.w #128,d4
  2301.  sub.w #128,d5
  2302.  muls #127,d4
  2303.  muls #127,d5
  2304.  divs d2,d4
  2305.  divs d2,d5
  2306.  add.w #128,d4
  2307.  add.w #128,d5
  2308.  
  2309. .nochng2:
  2310.  
  2311.  add.w MIDU,d4
  2312.  add.w MIDV,d5
  2313.  asr.w #1,d4
  2314.  asr.w #1,d5
  2315.  move.w d4,MIDU
  2316.  move.w d5,MIDV 
  2317.  
  2318.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2319.  move.l (a0)+,d2 
  2320.  
  2321.  and.l #$ffffff,d2
  2322.  and.l #$ffffff,d7
  2323.  
  2324.  moveq #0,d3
  2325.  moveq #0,d5
  2326.  move.w d2,d3
  2327.  move.w d7,d5
  2328.  swap d3
  2329.  swap d5
  2330.  sub.l d3,d5
  2331.  divs.l d0,d5
  2332.  asr.l #8,d5
  2333.  move.w d5,RIGHTBRIGHT
  2334.  asr.l #8,d3
  2335.  move.w d3,LEFTBRIGHT
  2336.  
  2337.  clr.w d2
  2338.  clr.w d7
  2339.  sub.l d2,d7
  2340.  asl.l #8,d2
  2341.  divs.l d0,d7
  2342.  asl.l #8,d7
  2343.  
  2344.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2345.  move.l (a0)+,d3
  2346.  
  2347.  moveq #0,d4
  2348.  moveq #0,d5
  2349.  
  2350. ; move.w d6,d5
  2351. ; move.w d3,d4
  2352. ; move.b #0,d4
  2353. ; move.b #0,d5
  2354.  
  2355.  move.w FIRSTU,d4
  2356.  move.w MIDU,d5
  2357.  lsl.l #8,d4
  2358.  lsl.l #8,d5
  2359.  
  2360.  sub.l d4,d5
  2361.  divs.l FIRSTLEN-2,d5
  2362.  
  2363.  move.w d4,d2
  2364.  move.w d5,d7
  2365.  move.l d7,a1
  2366.  moveq #0,d4
  2367.  moveq #0,d5
  2368.  
  2369. ; move.b d6,d5
  2370. ; move.b d3,d4
  2371.  
  2372. ; swap d5
  2373. ; swap d4
  2374.  
  2375.  move.w FIRSTV,d4
  2376.  move.w MIDV,d5
  2377.  swap d4
  2378.  swap d5
  2379.  
  2380.  sub.l d4,d5
  2381.  divs.l FIRSTLEN-2,d5
  2382.  
  2383.  move.l d5,a3
  2384.  move.l d4,d5
  2385.   
  2386.  clr.w d3
  2387.  clr.w d6
  2388.  sub.l d3,d6
  2389.  divs.l d0,d6
  2390.  move.l d6,a4
  2391.  
  2392.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2393.  move.w (a0)+,d4
  2394.  swap d7
  2395.  clr.w d7
  2396.  swap d4
  2397.  clr.w d4
  2398.  sub.l d4,d7
  2399.  divs.l d0,d7
  2400.  move.l d7,a5
  2401.  
  2402. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2403. ; swap d7
  2404. ; clr.w d7
  2405.  move.w (a0)+,d7
  2406. ; swap d5
  2407. ; clr.w d5
  2408. ; sub.l d5,d7
  2409. ; divs.l d0,d7
  2410. ; move.l d7,a6
  2411.  
  2412.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2413.  swap d7
  2414.  clr.w d7
  2415.  move.w (a0)+,d6
  2416.  swap d6
  2417.  clr.w d6
  2418.  sub.l d6,d7
  2419.  divs.l d0,d7
  2420.  
  2421.  lsl.l #8,d6
  2422.  lsl.l #8,d7
  2423.  
  2424.  move.w RIGHTBRIGHT,d7
  2425.  move.l d7,a6
  2426.  
  2427.  move.l a0,-(a7)
  2428.  move.l d1,-(a7)
  2429.  move.l #TEXTURES,a0
  2430.  move.w TEXTUREADD,d7
  2431.  bge.s .okaddtes3
  2432.  and.w #$7fff,d7
  2433.  add.l #65536*2,a0
  2434. .okaddtes3:
  2435.  ext.l d7
  2436.  add.l d7,d7
  2437.  add.l d7,a0
  2438.  move.w #0,d7
  2439.  
  2440.  move.w LEFTBRIGHT,d6
  2441.  
  2442.  subq #1,d0
  2443.  swap d0
  2444.  move.w HIGHPOLY,d0
  2445.  swap d0
  2446.  
  2447.  
  2448. ; d0=xdist
  2449. ; d2=U    a1=DU
  2450. ; d3=V  a4=DV
  2451. ; d4=X  a5=DX
  2452. ; d5=Y  a6=DY
  2453. ; d6=Z  a3=DZ
  2454.  
  2455. ; d0= polynum : polynum : counter : counter
  2456. ; d1= scratch : scratch : scratch : scratch
  2457. ; d2= u : uacc : sv : svacc
  2458. ; d3= v : v : vacc : vacc
  2459. ; d4= x : x : xacc : xacc
  2460. ; d5= su : su : suacc : suacc
  2461. ; d6= z : zacc : bright : brightacc
  2462. ; d7= scratch : scratch : scratch : scratch
  2463.  
  2464. ; a0= textures
  2465. ; a1= uspeed : uspeed : suspeed : suspeed
  2466. ; a2= screen pointer
  2467. ; a3= svspeed : svspeed : svspeed : svspeed
  2468. ; a4= vspeed : vspeed : vspeed : vspeed
  2469. ; a5= xspeed : xspeed : xspeed : xspeed
  2470. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2471. ; a7= shadowmap pointer
  2472.  
  2473.  
  2474.  move.w FIRSTLEN,d0
  2475.  sub.w #1,d0
  2476.  bsr STARTLINE
  2477.  
  2478.  move.l #0,d5
  2479.  move.w #0,d2
  2480.  move.l #0,a3
  2481.  
  2482.  move.w LASTLEN,d0
  2483.  sub.w #1,d0
  2484.  
  2485.  bsr STARTLINE
  2486.  
  2487.  
  2488.  move.l (a7)+,d1
  2489.  move.l (a7)+,a0
  2490.  move.l (a7)+,a2
  2491.  
  2492.  bra .noline
  2493.  
  2494. .firstaway:
  2495.  tst.w d3
  2496.  bge .bothaway
  2497.  
  2498.  
  2499. ; first is away and second is towards...
  2500.  
  2501. ; this really isn't going to work...
  2502.  
  2503.  move.w d0,d7    ; total length
  2504.  move.w d0,d6
  2505.  neg.w d3
  2506.  add.w d2,d3
  2507.  muls d2,d6
  2508.  divs d3,d6    ; length of first bit
  2509.  sub.w d6,d7    ; length of second bit
  2510.  move.w d6,FIRSTLEN
  2511.  move.w d7,LASTLEN
  2512.  
  2513.  tst.w FIRSTLEN
  2514.  beq .bothaway
  2515.  tst.w LASTLEN
  2516.  beq .bothtowards
  2517.  
  2518.  moveq #0,d2
  2519.  moveq #0,d3
  2520.  moveq #0,d4
  2521.  moveq #0,d5
  2522.  move.b 6(a0),d2
  2523.  move.b 7(a0),d3
  2524.  
  2525.  move.w d2,FIRSTU
  2526.  move.w d3,FIRSTV
  2527.  
  2528.  move.w d2,d4
  2529.  move.w d3,d5
  2530.  sub.w #128,d2
  2531.  sub.w #128,d3
  2532.  muls d2,d2
  2533.  muls d3,d3
  2534.  add.l d3,d2
  2535.  jsr CALCSQROOT
  2536.  
  2537.  tst.w d2
  2538.  beq.s .nochng22
  2539.  
  2540.  sub.w #128,d4
  2541.  sub.w #128,d5
  2542.  muls #127,d4
  2543.  muls #127,d5
  2544.  divs d2,d4
  2545.  divs d2,d5
  2546.  add.w #128,d4
  2547.  add.w #128,d5
  2548.  
  2549. .nochng22:
  2550.  
  2551.  move.w d4,MIDU
  2552.  move.w d5,MIDV
  2553.  
  2554.  moveq #0,d4
  2555.  moveq #0,d5
  2556.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2557.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2558.  move.w d4,SECU
  2559.  move.w d5,SECV
  2560.  
  2561.  move.w d4,d2
  2562.  move.w d5,d3
  2563.  
  2564.  sub.w #128,d2
  2565.  sub.w #128,d3
  2566.  muls d2,d2
  2567.  muls d3,d3
  2568.  add.l d3,d2
  2569.  jsr CALCSQROOT
  2570.  
  2571.  tst.w d2
  2572.  beq.s .nochng222
  2573.  
  2574.  sub.w #128,d4
  2575.  sub.w #128,d5
  2576.  muls #127,d4
  2577.  muls #127,d5
  2578.  divs d2,d4
  2579.  divs d2,d5
  2580.  add.w #128,d4
  2581.  add.w #128,d5
  2582.  
  2583. .nochng222:
  2584.  
  2585.  add.w MIDU,d4
  2586.  add.w MIDV,d5
  2587.  asr.w #1,d4
  2588.  asr.w #1,d5
  2589.  move.w d4,MIDU
  2590.  move.w d5,MIDV
  2591.  
  2592.  
  2593.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2594.  move.l (a0)+,d2 
  2595.  
  2596.  and.l #$ffffff,d2
  2597.  and.l #$ffffff,d7
  2598.  
  2599.  moveq #0,d3
  2600.  moveq #0,d5
  2601.  move.w d2,d3
  2602.  move.w d7,d5
  2603.  swap d3
  2604.  swap d5
  2605.  sub.l d3,d5
  2606.  divs.l d0,d5
  2607.  asr.l #8,d5
  2608.  move.w d5,RIGHTBRIGHT
  2609.  asr.l #8,d3
  2610.  move.w d3,LEFTBRIGHT
  2611.  
  2612.  clr.w d2
  2613.  clr.w d7
  2614.  sub.l d2,d7
  2615.  asl.l #8,d2
  2616.  divs.l d0,d7
  2617.  asl.l #8,d7
  2618.  
  2619.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2620.  move.l (a0)+,d3
  2621.  
  2622.  moveq #0,d4
  2623.  moveq #0,d5
  2624.  
  2625.  move.w MIDU,d4
  2626.  move.w SECU,d5
  2627.  lsl.w #8,d4
  2628.  lsl.w #8,d5
  2629.  
  2630. ; move.w d6,d5
  2631. ; move.w d3,d4
  2632. ; move.b #0,d4
  2633. ; move.b #0,d5
  2634.  
  2635.  sub.l d4,d5
  2636.  divs.l LASTLEN-2,d5
  2637.  
  2638.  move.w d4,d2
  2639.  move.w d5,d7
  2640.  move.l d7,a1
  2641.  moveq #0,d4
  2642.  moveq #0,d5
  2643.  
  2644.  move.w MIDV,d4
  2645.  move.w SECV,d5
  2646.  
  2647.  swap d5
  2648.  swap d4
  2649.  
  2650.  sub.l d4,d5
  2651.  divs.l LASTLEN-2,d5
  2652.  
  2653.  move.l d5,a3
  2654.  move.l d4,d5
  2655.  
  2656.  clr.w d3
  2657.  clr.w d6
  2658.  sub.l d3,d6
  2659.  divs.l d0,d6
  2660.  move.l d6,a4
  2661.  
  2662.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2663.  move.w (a0)+,d4
  2664.  swap d7
  2665.  clr.w d7
  2666.  swap d4
  2667.  clr.w d4
  2668.  sub.l d4,d7
  2669.  divs.l d0,d7
  2670.  move.l d7,a5
  2671.  
  2672. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2673. ; swap d7
  2674. ; clr.w d7
  2675.  move.w (a0)+,d7
  2676. ; swap d5
  2677. ; clr.w d5
  2678. ; sub.l d5,d7
  2679. ; divs.l d0,d7
  2680. ; move.l d7,a6
  2681.  
  2682.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2683.  swap d7
  2684.  clr.w d7
  2685.  move.w (a0)+,d6
  2686.  swap d6
  2687.  clr.w d6
  2688.  sub.l d6,d7
  2689.  divs.l d0,d7
  2690.  
  2691.  lsl.l #8,d6
  2692.  lsl.l #8,d7
  2693.  
  2694.  move.w RIGHTBRIGHT,d7
  2695.  move.l d7,a6
  2696.  
  2697.  move.l a0,-(a7)
  2698.  move.l d1,-(a7)
  2699.  move.l #TEXTURES,a0
  2700.  move.w TEXTUREADD,d7
  2701.  bge.s .okaddtes4
  2702.  and.w #$7fff,d7
  2703.  add.l #65536*2,a0
  2704. .okaddtes4:
  2705.  ext.l d7
  2706.  add.l d7,d7
  2707.  add.l d7,a0
  2708.  move.w #0,d7
  2709.  
  2710.  move.w LEFTBRIGHT,d6
  2711.  
  2712.  
  2713.  subq #1,d0
  2714.  swap d0
  2715.  move.w HIGHPOLY,d0
  2716.  swap d0
  2717.  
  2718.  
  2719. ; d0=xdist
  2720. ; d2=U    a1=DU
  2721. ; d3=V  a4=DV
  2722. ; d4=X  a5=DX
  2723. ; d5=Y  a6=DY
  2724. ; d6=Z  a3=DZ
  2725.  
  2726. ; d0= polynum : polynum : counter : counter
  2727. ; d1= scratch : scratch : scratch : scratch
  2728. ; d2= u : uacc : sv : svacc
  2729. ; d3= v : v : vacc : vacc
  2730. ; d4= x : x : xacc : xacc
  2731. ; d5= su : su : suacc : suacc
  2732. ; d6= z : zacc : bright : brightacc
  2733. ; d7= scratch : scratch : scratch : scratch
  2734.  
  2735. ; a0= textures
  2736. ; a1= uspeed : uspeed : suspeed : suspeed
  2737. ; a2= screen pointer
  2738. ; a3= svspeed : svspeed : svspeed : svspeed
  2739. ; a4= vspeed : vspeed : vspeed : vspeed
  2740. ; a5= xspeed : xspeed : xspeed : xspeed
  2741. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2742. ; a7= shadowmap pointer
  2743.  
  2744.  move.w d2,-(a7)
  2745.  move.l d5,-(a7)
  2746.  move.l a3,-(a7)
  2747.  
  2748.  move.w #0,d2
  2749.  move.l #0,d5
  2750.  move.l #0,a3
  2751.  
  2752.  move.w FIRSTLEN,d0
  2753.  subq #1,d0
  2754.  bsr STARTLINE
  2755.  
  2756.  
  2757.  move.l (a7)+,a3
  2758.  move.l (a7)+,d5
  2759.  move.w (a7)+,d2
  2760.  
  2761.  move.w LASTLEN,d0
  2762.  subq #1,d0
  2763.  
  2764.  bsr STARTLINE
  2765.  
  2766.  
  2767.  move.l (a7)+,d1
  2768.  move.l (a7)+,a0
  2769.  move.l (a7)+,a2
  2770.  
  2771.  bra .noline
  2772.  
  2773.  
  2774. .bothaway:
  2775.  
  2776.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  2777.  move.w #0,6(a0)
  2778.  
  2779. .bothtowards:
  2780.  
  2781.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2782.  move.l (a0)+,d2 
  2783.  
  2784.  and.l #$ffffff,d2
  2785.  and.l #$ffffff,d7
  2786.  
  2787.  moveq #0,d3
  2788.  moveq #0,d5
  2789.  move.w d2,d3
  2790.  move.w d7,d5
  2791.  swap d3
  2792.  swap d5
  2793.  sub.l d3,d5
  2794.  divs.l d0,d5
  2795.  asr.l #8,d5
  2796.  move.w d5,RIGHTBRIGHT
  2797.  asr.l #8,d3
  2798.  move.w d3,LEFTBRIGHT
  2799.  
  2800.  clr.w d2
  2801.  clr.w d7
  2802.  sub.l d2,d7
  2803.  asl.l #8,d2
  2804.  divs.l d0,d7
  2805.  asl.l #8,d7
  2806.  
  2807.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2808.  move.l (a0)+,d3
  2809.  
  2810.  moveq #0,d4
  2811.  moveq #0,d5
  2812.  
  2813.  move.w d6,d5
  2814.  move.w d3,d4
  2815.  move.b #0,d4
  2816.  move.b #0,d5
  2817.  
  2818.  sub.l d4,d5
  2819.  divs.l d0,d5
  2820.  
  2821.  move.w d4,d2
  2822.  move.w d5,d7
  2823.  move.l d7,a1
  2824.  moveq #0,d4
  2825.  moveq #0,d5
  2826.  
  2827.  move.b d6,d5
  2828.  move.b d3,d4
  2829.  
  2830.  swap d5
  2831.  swap d4
  2832.  
  2833.  sub.l d4,d5
  2834.  divs.l d0,d5
  2835.  
  2836.  move.l d5,a3
  2837.  move.l d4,d5
  2838.  
  2839.   
  2840.  clr.w d3
  2841.  clr.w d6
  2842.  sub.l d3,d6
  2843.  divs.l d0,d6
  2844.  move.l d6,a4
  2845.  
  2846.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2847.  move.w (a0)+,d4
  2848.  swap d7
  2849.  clr.w d7
  2850.  swap d4
  2851.  clr.w d4
  2852.  sub.l d4,d7
  2853.  divs.l d0,d7
  2854.  move.l d7,a5
  2855.  
  2856. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2857. ; swap d7
  2858. ; clr.w d7
  2859.  move.w (a0)+,d7
  2860. ; swap d5
  2861. ; clr.w d5
  2862. ; sub.l d5,d7
  2863. ; divs.l d0,d7
  2864. ; move.l d7,a6
  2865.  
  2866.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2867.  swap d7
  2868.  clr.w d7
  2869.  move.w (a0)+,d6
  2870.  swap d6
  2871.  clr.w d6
  2872.  sub.l d6,d7
  2873.  divs.l d0,d7
  2874.  
  2875.  lsl.l #8,d6
  2876.  lsl.l #8,d7
  2877.  
  2878.  move.w RIGHTBRIGHT,d7
  2879.  move.l d7,a6
  2880.  
  2881.  move.l a0,-(a7)
  2882.  move.l d1,-(a7)
  2883.  move.l #TEXTURES,a0
  2884.  move.w TEXTUREADD,d7
  2885.  bge.s .okaddtes5
  2886.  and.w #$7fff,d7
  2887.  add.l #65536*2,a0
  2888. .okaddtes5:
  2889.  ext.l d7
  2890.  add.l d7,d7
  2891.  add.l d7,a0
  2892.  move.w #0,d7
  2893.  
  2894.  move.w LEFTBRIGHT,d6
  2895.  
  2896.  subq #1,d0
  2897.  swap d0
  2898.  move.w HIGHPOLY,d0
  2899.  swap d0
  2900.  
  2901.  
  2902. ; d0=xdist
  2903. ; d2=U    a1=DU
  2904. ; d3=V  a4=DV
  2905. ; d4=X  a5=DX
  2906. ; d5=Y  a6=DY
  2907. ; d6=Z  a3=DZ
  2908.  
  2909. ; d0= polynum : polynum : counter : counter
  2910. ; d1= scratch : scratch : scratch : scratch
  2911. ; d2= u : uacc : sv : svacc
  2912. ; d3= v : v : vacc : vacc
  2913. ; d4= x : x : xacc : xacc
  2914. ; d5= su : su : suacc : suacc
  2915. ; d6= z : zacc : bright : brightacc
  2916. ; d7= scratch : scratch : scratch : scratch
  2917.  
  2918. ; a0= textures
  2919. ; a1= uspeed : uspeed : suspeed : suspeed
  2920. ; a2= screen pointer
  2921. ; a3= svspeed : svspeed : svspeed : svspeed
  2922. ; a4= vspeed : vspeed : vspeed : vspeed
  2923. ; a5= xspeed : xspeed : xspeed : xspeed
  2924. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2925. ; a7= shadowmap pointer
  2926.  
  2927.  bsr STARTLINE
  2928.  
  2929.  move.l (a7)+,d1
  2930.  move.l (a7)+,a0
  2931.  move.l (a7)+,a2
  2932.  
  2933. .noline:
  2934.  add.w #320,a2
  2935.  
  2936.  swap d1
  2937.  dbra d1,DOAHORLINEGOUR
  2938.  
  2939.  bra NOPOLYGON
  2940.  
  2941.  
  2942.  
  2943.  
  2944.  
  2945. *******************************
  2946. STARTLINE:
  2947.  
  2948.  move.l a7,SAVESTACK
  2949.  move.l #SHADOWBUFFER,a7
  2950.  
  2951.  moveq #0,d1
  2952.  swap d6
  2953.  move.w d6,d1
  2954.  swap d4
  2955.  move.b d4,d1
  2956.  swap d4
  2957.  swap d6
  2958.  
  2959.  swap d0
  2960.  moveq #0,d7
  2961.  move.b (a7,d1.l),d7
  2962.  cmp.w d7,d0
  2963.  ble .startlight
  2964.  swap d0
  2965.  bra INTHEDARKGOUR
  2966. .startlight:
  2967.  swap d0
  2968.  bra INTHELIGHTGOUR 
  2969. .startdark:
  2970. ***********************************
  2971.  
  2972.  
  2973.  
  2974. PENUMBRAGOUR:
  2975.  moveq #0,d1
  2976.  swap d6
  2977.  move.w d6,d1
  2978.  swap d4
  2979.  move.b d4,d1
  2980.  swap d4
  2981.  swap d6
  2982.  add.l a5,d4
  2983.  add.l a6,d6
  2984.  add.l a3,d5
  2985.  
  2986.  swap d0
  2987.  moveq #0,d7
  2988.  move.b (a7,d1.l),d7
  2989.  cmp.w d7,d0
  2990.  ble INTOLIGHTGOUR
  2991.  bra.s INTODARKGOUR
  2992.  
  2993. INTHEDARKGOUR:
  2994.  moveq #0,d1
  2995.  swap d6
  2996.  move.w d6,d1
  2997.  swap d4
  2998.  move.b d4,d1
  2999.  swap d4
  3000.  swap d6
  3001.  add.l a5,d4
  3002.  add.l a6,d6
  3003.  add.l a3,d5
  3004.  
  3005.  swap d0
  3006.  moveq #0,d7
  3007.  move.b (a7,d1.l),d7
  3008.  cmp.w d7,d0
  3009.  ble.s INTOPENUMGOUR
  3010. INTODARKGOUR:
  3011.  swap d0
  3012.  move.w #$5c00,d7
  3013.  swap d2
  3014.  move.w d2,d1
  3015.  swap d3
  3016.  move.b d3,d1
  3017.  swap d2
  3018.  swap d3
  3019.  add.l a1,d2
  3020.  add.l a4,d3
  3021.  
  3022.  move.b 1(a0,d1.w*8),d7
  3023.  bra DARKplottt
  3024.  
  3025. .noplottt
  3026.  addq #1,a2
  3027.  dbra d0,INTHEDARKGOUR
  3028.  bra DONEDONEBUM
  3029.  
  3030. INTOPENUMGOUR:
  3031.  swap d0
  3032.  move.w d6,d7
  3033.  
  3034.  sub.w #$5c00,d7
  3035.  asr.w #1,d7
  3036.  add.w #$5c00,d7
  3037.  
  3038.  swap d2
  3039.  move.w d2,d1
  3040.  swap d3
  3041.  move.b d3,d1
  3042.  swap d2
  3043.  swap d3
  3044.  add.l a1,d2
  3045.  add.l a4,d3
  3046.  
  3047.  move.b 1(a0,d1.w*8),d7
  3048.  bra.s PENUMplottt
  3049.  
  3050. .noplottt
  3051.  addq #1,a2
  3052.  dbra d0,PENUMBRAGOUR
  3053.  bra DONEDONEBUM
  3054.  
  3055.  
  3056. INTHELIGHTGOUR:
  3057.  
  3058.  moveq #0,d1
  3059.  swap d6
  3060.  move.w d6,d1
  3061.  swap d4
  3062.  move.b d4,d1
  3063.  swap d4
  3064.  swap d6
  3065.  add.l a5,d4
  3066.  add.l a6,d6
  3067.  add.l a3,d5
  3068.  
  3069.  swap d0
  3070.  moveq #0,d7
  3071.  move.b (a7,d1.l),d7
  3072.  cmp.w d7,d0
  3073.  bgt.s INTOPENUMGOUR
  3074. INTOLIGHTGOUR:
  3075.  swap d0
  3076.  move.w d6,d7
  3077.  swap d7
  3078.  swap d2
  3079.  move.w d2,d1
  3080.  swap d3
  3081.  move.b d3,d1
  3082.  swap d2
  3083.  swap d3
  3084.  add.l a1,d2
  3085.  add.l a4,d3
  3086.   
  3087.  move.w (a0,d1.w*8),d7
  3088.  bra.s LIGHTPLOTT
  3089. .noplottt:
  3090.  addq #1,a2
  3091.  dbra d0,INTHELIGHTGOUR
  3092. FLIBBLEY:
  3093.  bra DONEDONEBUM
  3094.  
  3095. PENUMplottt
  3096.  move.b GOURPAL(pc,d7.w),(a2)+
  3097.  dbra d0,PENUMBRAGOUR
  3098.  bra DONEDONEBUM
  3099.  
  3100. DARKplottt
  3101.  move.b GOURPAL(pc,d7.w),(a2)+
  3102.  dbra d0,INTHEDARKGOUR
  3103.  bra.s FLIBBLEY
  3104.  
  3105. LIGHTPLOTT:
  3106.  move.l #65536,d1
  3107.  move.w d2,d1
  3108.  swap d5
  3109.  move.b d5,d1
  3110.  swap d5
  3111.  
  3112.  move.b (a7,d1.l),d1
  3113.  lsl.w #8,d1
  3114.  add.w d7,d1
  3115.  swap d7
  3116.  move.b d1,d7
  3117.  move.b GOURPAL(pc,d7.w),d1
  3118.  move.b GOURPAL(pc,d1.w),(a2)+
  3119.  dbra d0,INTHELIGHTGOUR
  3120.  bra.s FLIBBLEY
  3121.  
  3122.  
  3123. GOURPAL: incbin "ab3:includes/shadow.pal"
  3124.  
  3125. DONEDONEBUM:
  3126.  move.l SAVESTACK,a7
  3127.  rts
  3128.  
  3129.  
  3130.  
  3131. LEFTSHINEV: dc.l 0
  3132. RIGHTSHINEV: dc.l 0
  3133. LEFTSHINEU: dc.l 0
  3134. RIGHTSHINEU: dc.l 0
  3135.  
  3136. TOPPTR: dc.l 0
  3137. TOPPTNUM: dc.w 0
  3138. BOTPTNUM: dc.w 0
  3139. LEFTBRIGHT: dc.w 0
  3140. RIGHTBRIGHT: dc.l 0
  3141. LEFTSPEC: dc.w 0
  3142. RIGHTSPEC: dc.w 0
  3143.  
  3144. ***********************************************
  3145.     
  3146. SIMPLECALCLINE:
  3147.  move.l #ONSCREENPTS,a1
  3148.  
  3149.  move.w 2(a1,d0.w*4),d2        ;fy
  3150.  move.w 2(a1,d1.w*4),d7        ;sy
  3151.  
  3152.  move.l #RIGHTUVS,a3
  3153.  asr.w #2,d2
  3154.  asr.w #2,d7
  3155.  cmp.w d2,d7 
  3156.  beq .noline
  3157.  
  3158.  bgt.s .lineonright
  3159. .lineonleft:
  3160.  move.l #LEFTUVS,a3
  3161.  exg d0,d1
  3162.  exg d2,d7
  3163.  
  3164. .lineonright:
  3165.  move.w d0,TOPPTNUM
  3166.  move.w d1,BOTPTNUM
  3167.  
  3168.  sub.w d2,d7
  3169.  asl.w #4,d2
  3170.  add.w d2,a3
  3171.  move.l a3,TOPPTR
  3172.  
  3173.  move.w d7,YDIFF
  3174.  
  3175.  move.w (a1,d0.w*4),d3        ;fx
  3176.  move.w (a1,d1.w*4),d7        ;sx
  3177.  
  3178.  sub.w d3,d7
  3179.  swap d3
  3180.  swap d7
  3181.  clr.w d3
  3182.  clr.w d7
  3183.  divs.l YDIFF-2,d7
  3184.  move.l d7,a0    ; dx
  3185.  
  3186.  move.l #UVCOORDS,a2
  3187.  move.l #SHADOWPTS,a1
  3188.  
  3189.  move.w (a2,d0.w*4),d4
  3190.  move.w 2(a2,d0.w*4),d5
  3191.  move.w (a2,d1.w*4),d6
  3192.  move.w 2(a2,d1.w*4),d7
  3193.  
  3194.  sub.w d4,d6
  3195.  sub.w d5,d7
  3196.  swap d4
  3197.  swap d5
  3198.  clr.w d4
  3199.  clr.w d5
  3200.  swap d6
  3201.  swap d7
  3202.  clr.w d6
  3203.  clr.w d7
  3204.  
  3205.  divs.l YDIFF-2,d6
  3206.  divs.l YDIFF-2,d7
  3207.  
  3208.  move.l d6,a4
  3209.  move.l d7,a5
  3210.  
  3211.  muls #10,d0
  3212.  muls #10,d1
  3213.  move.l (a1,d0.w),d6
  3214.  
  3215.  move.l (a1,d1.w),d7
  3216.  asl.l #5,d6
  3217.  asl.l #5,d7
  3218.  sub.l d6,d7
  3219.  divs.l YDIFF-2,d7
  3220.  move.l d7,a2
  3221.  move.l d6,a6
  3222.  
  3223.  move.l 4(a1,d0.w),d6
  3224.  move.l 4(a1,d1.w),d7
  3225.  asl.l #5,d6
  3226.  asl.l #5,d7
  3227.  sub.l d6,d7
  3228.  divs.l YDIFF-2,d7
  3229.  exg d7,a6
  3230.  exg d7,d6
  3231.  
  3232.  move.w 8(a1,d0.w),d0
  3233.  move.w 8(a1,d1.w),d1
  3234.  swap d0
  3235.  swap d1
  3236.  clr.w d0
  3237.  clr.w d1
  3238.  asr.l #2,d0
  3239.  asr.l #2,d1
  3240.  sub.l d0,d1
  3241.  divs.l YDIFF-2,d1
  3242.  move.l d1,a1
  3243.  move.l YDIFF-2,d1
  3244.  subq #1,d1
  3245.  
  3246. ; d3=sx a0=dsx
  3247. ; d4=u a4=du
  3248. ; d5=v a5=dv
  3249. ; d6=x a2=dx
  3250. ; d7=y a6=dy
  3251. ; d0=z a1=dz
  3252. ; d1=dsy
  3253.  
  3254.  
  3255.  add.l #128*65536,d6
  3256.  add.l #128*65536,d7
  3257.  add.l #128*65536,d0
  3258.  
  3259. .PUTINLINE:
  3260.  swap d3
  3261.  move.w d3,(a3)+
  3262.  swap d3
  3263.  add.l a0,d3
  3264.  move.l d4,(a3)+
  3265.  add.l a4,d4
  3266.  move.l d5,(a3)+
  3267.  swap d6
  3268.  add.l a5,d5
  3269.  move.w d6,(a3)+
  3270.  swap d6
  3271.  swap d7
  3272.  add.l a2,d6
  3273.  move.w d7,(a3)+
  3274.  swap d7
  3275.  swap d0
  3276.  add.l a6,d7
  3277.  move.w d0,(a3)+
  3278.  swap d0
  3279.  add.l a1,d0
  3280.  dbra d1,.PUTINLINE
  3281.  
  3282.  tst.b Gouraud
  3283.  beq .noline
  3284.  
  3285.  move.w TOPPTNUM,d0
  3286.  move.w BOTPTNUM,d1
  3287.  move.l TOPPTR,a3
  3288.  moveq #0,d6
  3289.  move.w YDIFF,d6
  3290.  
  3291.  move.l #SPECBRIGHTS,a2
  3292.  
  3293.  move.w 2(a2,d0.w*4),d2
  3294.  move.w 2(a2,d1.w*4),d3
  3295.  
  3296.  asr.w #4,d2
  3297.  asr.w #4,d3
  3298.  
  3299.  tst.w d2
  3300.  blt .firsttowards
  3301.  bgt.s .firstaway
  3302.  
  3303.  tst.w d3
  3304.  ble .bothtowards
  3305.  bra .bothaway
  3306.  
  3307. .firstaway
  3308.  tst.w d3
  3309.  blt .sectowards
  3310.  bra .bothaway
  3311.  
  3312. .firsttowards:
  3313.  tst.w d3
  3314.  ble .bothtowards
  3315.  
  3316. ; First one is towards, the second away.
  3317. ; Do the line in two bits: one heading
  3318. ; from the first point to the rim, the
  3319. ; other heading from the rim to the second
  3320. ; point and flagged as behind.
  3321.  
  3322.  move.w d6,d7    ; total length to draw
  3323.  move.w d2,FIRSTY
  3324.  move.w d3,LASTY
  3325.  
  3326.  neg.w d2
  3327.  add.w d2,d3     ; total change in Y
  3328.  
  3329.  bra.s .onetowards
  3330.  
  3331. .sectowards:
  3332.  move.w d6,d7    ; total length to draw
  3333.  move.w d2,FIRSTY
  3334.  move.w d3,LASTY
  3335.  neg.w d3
  3336.  add.w d2,d3
  3337.  
  3338. .onetowards:
  3339.  
  3340.  muls d2,d6
  3341.  divs d3,d6    ; length of first bit of line.
  3342.  
  3343.  ext.l d6
  3344.  ext.l d7
  3345.  
  3346.  move.w d6,FIRSTLEN
  3347.  sub.l d6,d7
  3348.  move.w d7,LASTLEN
  3349.  
  3350.  add.l d7,d6
  3351.  
  3352.  move.w FIRSTY,d2
  3353.  move.w LASTY,d3
  3354.  swap d2
  3355.  clr.w d2
  3356.  swap d3
  3357.  clr.w d3
  3358.  sub.l d2,d3
  3359.  divs.l d6,d3
  3360.  move.l d3,a6
  3361.  move.l d2,d7
  3362.  
  3363.  moveq #0,d2
  3364.  moveq #0,d3
  3365.  moveq #0,d4
  3366.  moveq #0,d5
  3367.  move.b (a2,d0.w*4),d2
  3368.  move.b 1(a2,d0.w*4),d3
  3369.  
  3370.  move.w d2,FIRSTU
  3371.  move.w d3,FIRSTV
  3372.  
  3373.  move.w d2,d4
  3374.  move.w d3,d5
  3375.  sub.w #128,d2
  3376.  sub.w #128,d3
  3377.  muls d2,d2
  3378.  muls d3,d3
  3379.  add.l d3,d2
  3380.  jsr CALCSQROOT
  3381.  
  3382.  tst.w d2
  3383.  beq.s .nochng
  3384.  
  3385.  sub.w #128,d4
  3386.  sub.w #128,d5
  3387.  muls #127,d4
  3388.  muls #127,d5
  3389.  divs d2,d4
  3390.  divs d2,d5
  3391.  add.w #128,d4
  3392.  add.w #128,d5
  3393.  
  3394. .nochng:
  3395.  
  3396.  move.w d4,MIDU
  3397.  move.w d5,MIDV
  3398.  
  3399.  move.b (a2,d1.w*4),d4
  3400.  move.b 1(a2,d1.w*4),d5
  3401.  move.w d4,SECU
  3402.  move.w d5,SECV
  3403.  
  3404. ; move.w d4,d2
  3405. ; move.w d5,d3
  3406. ;
  3407. ; sub.w #128,d2
  3408. ; sub.w #128,d3
  3409. ; muls d2,d2
  3410. ; muls d3,d3
  3411. ; add.l d3,d2
  3412. ; jsr CALCSQROOT
  3413. ;
  3414. ; tst.w d2
  3415. ; beq.s .nochng2
  3416. ;
  3417. ; sub.w #128,d4
  3418. ; sub.w #128,d5
  3419. ; muls #127,d4
  3420. ; muls #127,d5
  3421. ; divs d2,d4
  3422. ; divs d2,d5
  3423. ; add.w #128,d4
  3424. ; add.w #128,d5
  3425. ; 
  3426. ;.nochng2:
  3427. ;
  3428. ; add.w MIDU,d4
  3429. ; add.w MIDV,d5
  3430. ; asr.w #1,d4
  3431. ; asr.w #1,d5
  3432. ; move.w d4,MIDU
  3433. ; move.w d4,MIDV
  3434.  
  3435.  move.l #NORMBRIGHTS,a2
  3436.  move.w (a2,d0.w*2),d0
  3437.  move.w (a2,d1.w*2),d1
  3438.  
  3439.  sub.w d0,d1
  3440.  swap d1
  3441.  swap d0
  3442.  divs.l d6,d1
  3443.  
  3444.  move.w FIRSTLEN,d6
  3445.  beq.s .nofirstbit
  3446.  ext.l d6
  3447.  
  3448.  moveq #0,d2
  3449.  moveq #0,d3
  3450.  moveq #0,d4
  3451.  moveq #0,d5
  3452.  move.w FIRSTU,d2
  3453.  move.w MIDU,d3
  3454.  move.w FIRSTV,d4
  3455.  move.w MIDV,d5
  3456.  
  3457.  sub.w d2,d3
  3458.  swap d2
  3459.  swap d3
  3460.  divs.l d6,d3
  3461.  move.l d3,a4
  3462.  
  3463.  sub.w d4,d5
  3464.  swap d4
  3465.  swap d5
  3466.  divs.l d6,d5
  3467.  move.l d5,a5
  3468.  
  3469.  bsr DOABITOFLINE
  3470. .nofirstbit:
  3471.  
  3472.  move.w LASTLEN,d6
  3473.  beq.s .nosecbit
  3474.  ext.l d6
  3475.  
  3476.  moveq #0,d2
  3477.  moveq #0,d3
  3478.  moveq #0,d4
  3479.  moveq #0,d5
  3480.  move.w MIDU,d2
  3481.  move.w SECU,d3
  3482.  move.w MIDV,d4
  3483.  move.w SECV,d5
  3484.  
  3485.  sub.w d2,d3
  3486.  swap d2
  3487.  swap d3
  3488.  divs.l d6,d3
  3489.  move.l d3,a4
  3490.  
  3491.  sub.w d4,d5
  3492.  swap d4
  3493.  swap d5
  3494.  divs.l d6,d5
  3495.  move.l d5,a5
  3496.  
  3497.  bsr DOABITOFLINE
  3498. .nosecbit:
  3499.  
  3500.  bra .noline
  3501.  
  3502. .bothaway
  3503.  
  3504. ; Both are away, so do it simply.
  3505.  
  3506. .bothtowards:
  3507.  
  3508. ; Both are towards, so do it simply and flag all
  3509. ; points as towards.
  3510.  
  3511.  swap d2
  3512.  clr.w d2
  3513.  swap d3
  3514.  clr.w d3
  3515.  sub.l d2,d3
  3516.  divs.l d6,d3
  3517.  move.l d3,a6
  3518.  move.l d2,d7
  3519.  
  3520.  moveq #0,d2
  3521.  moveq #0,d3
  3522.  moveq #0,d4
  3523.  moveq #0,d5
  3524.  move.b (a2,d0.w*4),d2
  3525.  move.b (a2,d1.w*4),d3
  3526.  move.b 1(a2,d0.w*4),d4
  3527.  move.b 1(a2,d1.w*4),d5
  3528.  
  3529.  sub.w d2,d3
  3530.  swap d2
  3531.  swap d3
  3532.  divs.l d6,d3
  3533.  move.l d3,a4
  3534.  
  3535.  sub.w d4,d5
  3536.  swap d4
  3537.  swap d5
  3538.  divs.l d6,d5
  3539.  move.l d5,a5
  3540.  
  3541.  move.l #NORMBRIGHTS,a2
  3542.  move.w (a2,d0.w*2),d0
  3543.  move.w (a2,d1.w*2),d1
  3544.  
  3545.  sub.w d0,d1
  3546.  swap d1
  3547.  swap d0
  3548.  divs.l d6,d1
  3549.  
  3550.  bsr DOABITOFLINE
  3551.  
  3552. .noline:
  3553.  rts
  3554.  
  3555.  DOABITOFLINE:
  3556.  subq #1,d6
  3557.  
  3558. .STICKINGOUR:
  3559.  swap d7
  3560.  move.b d7,2(a3)
  3561.  swap d7
  3562.  add.l a6,d7
  3563.  swap d0
  3564.  move.w d0,4(a3)
  3565.  swap d0
  3566.  add.l d1,d0
  3567.  swap d2
  3568.  move.b d2,8(a3)
  3569.  swap d4
  3570.  move.b d4,9(a3)
  3571.  swap d4
  3572.  adda.w #16,a3
  3573.  swap d2
  3574.  add.l a4,d2
  3575.  add.l a5,d4
  3576.  dbra d6,.STICKINGOUR
  3577.  
  3578.  rts
  3579.  
  3580. FIRSTY: dc.w 0
  3581. LASTY: dc.w 0
  3582. FIRSTU: dc.w 0
  3583. SECU: dc.w 0
  3584. FIRSTV: dc.w 0
  3585. SECV: dc.w 0
  3586.     dc.w 0
  3587. FIRSTLEN: dc.w 0
  3588.     dc.w 0
  3589. LASTLEN: dc.w 0
  3590. MIDU: dc.w 0
  3591. MIDV: dc.w 0
  3592.  
  3593. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3594.  
  3595.  
  3596.  
  3597. ************************************************
  3598. ************************************************
  3599. ************************************************
  3600. ************************************************
  3601. ************************************************
  3602. ************************************************
  3603. ************************************************
  3604. ************************************************
  3605. ************************************************
  3606. ************************************************
  3607. ************************************************
  3608. ************************************************
  3609. ************************************************
  3610. ************************************************
  3611. ************************************************
  3612. ************************************************
  3613. ************************************************
  3614.  
  3615.  move.w d3,TOPLINE
  3616.  move.w d4,BOTLINE
  3617.  
  3618.  
  3619.  
  3620.  
  3621. *********************************************
  3622.  
  3623. CALCSQROOT:
  3624.  tst.l d2
  3625.  beq .oksqr
  3626.  
  3627.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  3628.  
  3629.  move.w #31,d0
  3630. .findhigh
  3631.  btst d0,d2
  3632.  bne .foundhigh
  3633.  dbra d0,.findhigh
  3634. .foundhigh
  3635.  asr.w #1,d0
  3636.  clr.l d3
  3637.  bset d0,d3
  3638.  move.l d3,d0
  3639.  
  3640.  move.w d0,d1
  3641.  muls d1,d1    ; x*x
  3642.  sub.l d2,d1    ; x*x-a
  3643.  asr.l #1,d1    ; (x*x-a)/2
  3644.  divs d0,d1    ; (x*x-a)/2x
  3645.  sub.w d1,d0    ; second approx
  3646.  bgt .stillnot0
  3647.  move.w #1,d0
  3648. .stillnot0
  3649.  
  3650.  move.w d0,d1
  3651.  muls d1,d1
  3652.  sub.l d2,d1
  3653.  asr.l #1,d1
  3654.  divs d0,d1
  3655.  sub.w d1,d0    ; second approx
  3656.  bgt .stillnot02
  3657.  move.w #1,d0
  3658. .stillnot02
  3659.  
  3660.  move.w d0,d1
  3661.  muls d1,d1
  3662.  sub.l d2,d1
  3663.  asr.l #1,d1
  3664.  divs d0,d1
  3665.  sub.w d1,d0    ; second approx
  3666.  bgt .stillnot03
  3667.  move.w #1,d0
  3668. .stillnot03
  3669.  
  3670.  move.w d0,d2
  3671.  ext.l d2
  3672.  
  3673.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  3674.  
  3675. .oksqr
  3676.  rts
  3677.  
  3678.  
  3679. **********************************************
  3680. **********************************************
  3681. **********************************************
  3682. **********************************************
  3683. **********************************************
  3684. **********************    ************************
  3685. **********************************************
  3686. **********************************************
  3687. **********************************************
  3688. **********************************************
  3689. **********************************************
  3690. **********************************************
  3691. **********************************************
  3692. **********************************************
  3693. **********************************************
  3694. **********************************************
  3695. **********************************************
  3696. **********************************************
  3697. **********************************************
  3698.  
  3699. TOPLINE: dc.w 0
  3700. BOTLINE: dc.w 0
  3701.  
  3702.  
  3703.  
  3704. **********************************************
  3705. **********************************************
  3706. **********************************************
  3707. **********************************************
  3708. **********************************************
  3709. **********************************************
  3710. **********************************************
  3711. **********************************************
  3712. **********************************************
  3713. **********************************************
  3714. **********************************************
  3715. **********************************************
  3716. **********************************************
  3717. **********************************************
  3718. **********************************************
  3719. **********************************************
  3720. **********************************************
  3721. **********************************************
  3722. **********************************************
  3723.     
  3724.  
  3725.     
  3726.  dc.w 0
  3727. YDIFF: dc.w 0
  3728.  
  3729. SPINAROUND: dc.w 0    
  3730. XCOS: dc.w 0
  3731. YCOS: dc.w 0
  3732. XSIN: dc.w 0
  3733. YSIN: dc.w 0
  3734. XCOS3: dc.w 0
  3735. YCOS3: dc.w 0
  3736. XSIN3: dc.w 0
  3737. YSIN3: dc.w 0
  3738. XCOS2: dc.w 0
  3739. YCOS2: dc.w 0
  3740. XSIN2: dc.w 0
  3741. YSIN2: dc.w 0
  3742. XADD: dc.l 0
  3743. YADD: dc.l 0
  3744. ZADD: dc.l 0
  3745. XOFF: dc.w 0
  3746. YOFF: dc.w 0
  3747. OLDXM: dc.w 0
  3748. OLDYM: dc.w 0
  3749.  
  3750.  
  3751.  
  3752. TEXTUREADD: dc.w 0
  3753.  
  3754.  
  3755. **********************************************************
  3756.  
  3757. UVCOORDS: ds.l 250
  3758. ROTATEDPTS: ds.l 250*4
  3759. SHADOWPTS: ds.l 250*4
  3760. ONSCREENPTS: ds.l 250
  3761.  
  3762. ZOFF: dc.w 768
  3763.  
  3764. LEFTRIGHT: ds.l 256
  3765.  
  3766. POLYGONDATA:
  3767.  ds.b 30000
  3768.  
  3769. OBJNAME: dc.b "ab3:vectobj/testcube",0
  3770.  even
  3771. doslibname: dc.b 'dos.library',0
  3772.  even
  3773. doslib: dc.l 0
  3774.  
  3775. ****************************
  3776.  
  3777. SINETABLE:
  3778.  incbin "ab3:includes/bigsine"
  3779.  
  3780.  
  3781. YANG: dc.w 0
  3782. XANG: dc.w 0
  3783.  
  3784.  
  3785. xmouse: dc.w 0
  3786. ymouse: dc.w 0
  3787.  
  3788. spleen: dc.w 0
  3789. lastspleen: dc.w 0
  3790.  
  3791. COPIEDPAL:
  3792.  dc.w 256,0
  3793.  ds.l 3*256
  3794.  ds.l 10
  3795.  
  3796. SHADOWBUFFER: ds.l 65536/4
  3797. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  3798.  
  3799. PALETTEBIT:
  3800. ; incbin "256palette"
  3801. ; dc.w $ffff,$fffe
  3802.  
  3803.  incbin "ab3:shadowtex/shadowpal"
  3804.  
  3805.  include "ab3:source_4000/chunky.s"
  3806.  
  3807. willy: ds.w 48
  3808.  
  3809.  
  3810. PALS:
  3811.  ds.l 2*49
  3812.  
  3813. pregour: dc.b 0
  3814. Gouraud: dc.b 0
  3815.  
  3816. PointAngPtr: dc.l 0
  3817. FRAMENUM: dc.w 0
  3818. PolyAngPtr: dc.l 0
  3819. PtsPtr: dc.l 0
  3820. LinesPtr: dc.l 0
  3821. POINTER_TO_POINTERS: dc.l 0
  3822. FRAME: dc.w 4
  3823. FLIBBLE: dc.w 0
  3824. START_OF_OBJECT: dc.l 0
  3825. num_points: dc.w 0
  3826. num_frames: dc.w 0
  3827. SORTIT: dc.w 0
  3828. PartBuffer: ds.l 2*32
  3829. endparttab:
  3830.  
  3831. x1: dc.w 0
  3832. y1: dc.w 0
  3833. z1: dc.w 0
  3834. x2: dc.w 0
  3835. y2: dc.w 0
  3836. z2: dc.w 0
  3837. x2b: dc.w 0
  3838. y2b: dc.w 0
  3839. z2b: dc.w 0
  3840.  
  3841. x3: dc.w 0
  3842. y3: dc.w 0
  3843. z3: dc.w 0
  3844.  
  3845. l1: dc.w 0
  3846. l2: dc.w 0
  3847.  
  3848. OBJONOFF: dc.l 0
  3849.  
  3850. SAVEHIGHS: ds.w 30
  3851.  
  3852. FASTBUFFER:
  3853.  dc.l fasty
  3854.  
  3855. fasty: ds.b 320*256
  3856.  
  3857. NORMBRIGHTS: ds.w 250
  3858.  
  3859. SPECBRIGHTS:
  3860.  dcb.l 100,31
  3861.  
  3862. ENDNORM:
  3863.  
  3864. LEFTUVS: ds.w 8*256
  3865. RIGHTUVS: ds.w 8*256
  3866.  
  3867. NORMVECTS: ds.w 3*250
  3868.  
  3869. ;WORLD: incbin "ab3:includes/world"
  3870.  
  3871. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  3872.  
  3873.  
  3874.  
  3875. NEBBIE: incbin "work:temp/nebbieroar"
  3876.     ds.l (192/4)*16
  3877.  
  3878.  SECTION blib,code_f
  3879.  
  3880. TEXTURES:
  3881.  incbin "ab3:includes/shadowmaps"
  3882.  even
  3883.  
  3884.  SECTION BGDROP,code_c
  3885.  
  3886. RAWSCRN:
  3887.  ds.l 2560*8
  3888.